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YOUR O-ZO/CE'-smart either way 



Over 140 software driven functions 

82 x 24 or 82 x 20 screen format — software selectable 

High resolution 7x12 matrix characters — P-31 green phosphor 

Upper/lower case character set — plus graphics character set 

56-key alphanumeric keyboard — plus 12-key cursor, numeric pad 

Internal editing functions — insert, delete, scroll, roll, slide, etc. 

Parallel printer I/O port 

50 to 38,400 baud operation — programmable 

Cursor type, cursor position, print control characters, protected fields, 
shift inversion, dual intensity and many other features 



8212 — twelve-inch diagnonal screen or 8209 — nine-inch diagnonal screen 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 344-0241 




from the 8 bit 6809 microprocessor allowing it to 
outperform many 16 bit systems 



with the UniaDC* Operating System, the 
8 bit 6809 mlcroprocessorcon 
perfoim osweiloslorgerCPUsino multi- 
user, multi-tasking environment. 

Independentiydeveloped from the 
ground up, UnlFLEX** closely models the 
features found In the UNIX" Operating 
System. And In two years of use. UnlFLBC 
hos proven the obltfties of the 6809 to 
perform large system functions when 
Incorporated into a property designed 
molntrame, 

Some of the features supported Include: 

• full mullt-user multi-tasking capabilities 

• hierarchical file systems 

• device independent I/O 

• four Gigobytedlsk capacities 

• full file protection 

• Inter-taskcommunlcatlonvto pipes 

• I/O redirection 

• taskswappingforefflctentmemofy 
usage 

• full random-access files 

• comprehensive shell command 
language 

• foreground-background lobs 

• electronic moil and printer spooling 

• system accounting facilities 



The suppoftsofrworecurrentlyovaltable 
for use under UniFLEX 1 " is extensive. 
A sampling of the programs available 
Includes: 

• notrveC compiler (full 
Implementation) 

• native Pascal compiler 

• FORTRAN 77 ANSI Subsetcomplier 

• COBOlcompllerwith ISAM flies, Report 
Writer a Sort/Merge 

• Extended BASIC Interpreter 

• Extended BASIC precompiler 

• text editing and processing software 

• enhanced printer spooler 

• varletyofobsoluteondrelocotoble 
assemblers 

• debug and dlognosf Ic packages 

Technical SySTems Consultants, Inc. also 
offers o line of single userflEX"' software 
products to r6800 and 6809 processors 
Far those having on absolute need foro 
1 6 bit processor, UniaDT will be avo li- 
able through OEM licensing arrange - 
ments for the 68000 microprocessor. 
Please call or wilte for odditionol 
information on individual products or 
OEM licensing arrangements. 

VINrx * tea trodemaik of ton Latocwot odds 
RFX~ a nti UnlflEX 4 * on no&moik* of Technical 
Syetem* Conwif anil Inc 
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Computer Publishing Center 
66MICH> JOURNAL 

5900 Cassandra Smith 
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Hlxson, TN 37343 
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additional entries. Postmaster: send Form 3579 to 
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Submitted for Publication 



Articles submitted for publication should be 
accompanied by the authors full n^m 9 address, date and 
telephone number. It Is preferred that articles be 
submitted on either 5 or 8 Inch diskette In TSC Editor 
format or STYLO format. All diskettes will be returned. 

The following TSC Text Processor commands ONLY should 
be used (due to our proportional processor): .sp space, 
.pp paragraph, .fl fill and .nf no fill. Also please do 
not format within the text with multiple spaces. The 
rest we will enter at time of editing. 

STYLO commands are all acceptable except the ,pg page 
command, we print edited text files in con 1 1 nous text. 

All articles submitted on diskettes should be In TSC 
FLEX" format, either FLEX2 6800, or FLEX9 6809 any ver- 
sion. 

If articles are submitted on paper they should be on 
white 8X11 bond or better grade paper. No hand written 
articles (hand written or drawn art accepted). AH 
paper submitted articles will be photo reproduced. 
This requires that they be typed or produced with a 
dark ribbon (no blue), single spaced and type font no 
smaller than 'elite 1 or 12 pitch. Typed text should be 
approximately 7 inches wide (will be reduced to column 
width of 3 1/2 Inches). Please use a dark ribbon! 

Al I letters to the editor should also comply with the 
above and bear a signature. Letters of 'gripes' as well 
as 'praise' are solicited. We attempt to publish all 
letters to the editor verbatim, however, we reserve the 
right to reject any submission for lack of *good taste*. 
We reserve the right to define what constitutes 'good 
taste*. 

Advertising: Commercial advertisers please contact the 
68 Micro Journal advertising department for current 
rate sheet and requirements. 

Classified: All classified must be non-commercial. 
Maximum 20 words per classified ad. Those consisting of 
more than 20 words should be figured at .35 cents per 
word. 20 words or less $7.90 minimum* one time, paid In 
advance. No classified ads accepted by telephone. 
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2MHZ 6809 SYSTEMS 

GIMIX offers you a variety to choose from! 
38 MB WINCHESTER SYSTEM $17,498.99 




DMA Double Density Floppy Disk Controller 
Dual 8'* DSDD Floppy Disk System 
Dual Winchester Subsystem with 
Two19 MB 5 1 /*' 4 Winchester Drives 

OS-9 Text Editor 
OS-9 Assembler 



4 RS232C Serial Ports 

1 MB5V4*' Floppy Disk Drive 

DMA Double Density Floppy Disk Controller 



HARDWARE FEATURES: 

• 2MHz 6809 CPU 

• 512KB Static RAM 
+ 8 RS232C Serial Ports 

• 2 Parallel Ports 
SOFTWARE FEATURES: 

• OS-9 LEVEL TWO Multi-User 
Operating System 

• OS-9 Debugger 

19 MB WINCHESTER SYSTEM $8998-09 

HARDWARE FEATURES: 

• 128K Static Ram 

• 2MHz6809 CPU 

• 19 MB 5Va" Winchester DMA Subsystem 
SOFTWARE FEATURES: 

• OS9 LEVEL TWO Multi-User 
Operating System 

• OS-9 Text Editor 

128KB MULTI-USER SYSTEM $6997.39 

HARDWARE FEATURES: 

• 2MHz 6809 CPU * 2 RS232C Serial Ports 

• DMA Double Density Floppy Disk Controller * Dual 8" DSDD Floppy Disk System 

• 128KB Static Ram 

SOFTWARE FEATURES: Your choice of either UniFLEX or OS-9 LEVEL TWO. Both are Unix-like 
Multi-User/ Multi-Tasking Operating Systems. 

56KB FLEX/ OS-9 "SWITCHING" SYSTEM $4148.49 

HARDWARE FEATURES: 

• 2MHz 6809 CPU * 

• 56K Static Ram * 

• 2 RS232C Serial Ports 
SOFTWARE FEATURES: 

• GMXBUG monitor — FLEX Disk Operating System 

• OS-9 LEVEL ONE Multitasking operating system for up to 56K of memory 



OS-9 Debugger 
OS-9 Assembler 



DMA Double Density Floppy Disk Controller 

2 Built-in S'V 40tr DSDD Disk Drives 

(80 Track DSDD Drive Option . . add $400.00) 



WINCHESTER SUBSYSTEMS 



Winchester packages are available for upgrading current GIMIX 6809 systems equipped with DMA controllers, at least one 
Moppy disk drive, and running FLEX. OS-9 LEVEL ONE or OS-9 LEVEL TWO. The packages include one or two T9MB (unformat- 
ted) Winchester drives, DMA Hard Disk Interlace, and the appropriate software drivers. The Interface can handle two 574" 
Winchester Drives, providing Automatic Data Error Detection and Correclion: up to 22 bil burst error detection and 1 1 bit burst 
error correction UnlFLEX NOW AVAILABLE 

Dual drives can be used together to provide over 30 MBytes of on Itne storage - or use one for backup ol the other (More 
convenient and reliable than tape backup systems. 

#90 includes one 19MB Drive. Interface, and Software 54288,90 

#91 includes two 19MB Drives. Interface, and Software S6688.91 

Contact QlMtX for systems customized to your needs or lor more information, 
50 HZ Export Versions Available 



GiMtx 10c resets irw nflhi to change p/ittng and prcxtuci 
specifications at any time wiinwr imtnei notice 

GMX is a trademark of GIMIX Inc. 
GIMIX* 4ikj GHOST' art registered Irademai^S fll G Mix (nc 
FUX dtitf Umf LEX are trademarks or Technical Systems Consent, inc 
OS 9 is a trademark of MKfovtf re trie 



1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

(312)927-5510 

TWX 910-221 4055 



Gimix 



108? GiMlK Inc 
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OS-9 



If your computer has a SCREEN and you're still strug- 
gling with an editor that only knows about LINES, then 
obviously YOU don't know about 

DynaStar 

DynaStar is a powerful, menu-driven screen editor 
equally suited to the tasks of program preparation and 
document processing. With the addition of the optional 
DynaForm print formatter, it Is the best word- 
processing package you can buy for your OS-9 system. 

DynaStar Version II is now available and features no- 
nonsense 'what you see is what you get' 1 editing for vir- 
tually any terminal with or without cursor addressing (It 
must be at least able to go to "home"). To edit, simply 
place the cursor where you want It, and type. Any print- 
able character you type is entered directly into your 
text, and any non-printable control character causes Im- 
mediate execution of an editing command. Single key- 
strokecommands permit movement of the cursor In any 
direction, by character, tab, word, line, or screen full, 
and deletion of characters, words {\eii or right) or a 
whole line. Two keystroke commands augment this set 
by moving the cursor to the left margin, top or bottom of 
the screen, beginning or end of the edit buffer, or the 
beginning of the next paragraph. You can search for any 
string, replace with any other, do it again, mark original 
blocks of text, copy, move or delete blocks, read or write 
to side-files, set tabs and margins, or center the current 
line, 

DynaStar features automatic word-wrap, and It can 
right-justify text as you enter It so you will see exactly 
how It will look before you print it. If you later make 
alterations or change the margins, you can reform the 
text a paragraph at a time with two keystrokes. For pro- 
grammars, there is a special automatic indent mode to 
help you write well-structured code. DynaStar Includes 
a Shell command which lets you do almost anything (In- 
cluding edit another file) without even losing your place 
in yourcurrent document, and It permits editing of large 
disk files In stages without forcing you to break up your 
files. 

If you want to define more powerful commands, Dyna- 
Star Includes a macro facility which lets you convert 
any control character to one or a string of characters of 
your choice. You can use this feature to create global 
search-and-replace commands, insert "boiler-plate," or 
simply re-map your keyboard. You can also provide a 




special "start-up string" which Is automatically ex- 
ecuted whenever you enter the editor to set up modes 
such as auto-justify, display a directory, define your 
favorite macros, or re-map the keyboard. 

For complete word-processing, we offer our Dyna- 
Form text formatter which provides all the standard 
features such as pagination, headers and footers with 
page numbers, single space, double space, multiple 
space, bold face, double-strike, and underline. 
DynaForm has Its own macro facility with string 
variables, nested include files, a full merge-print 
capability for generating form letters and mailing lists, 
and it can generate an Index automatically, sorted 
alphabetically or by page number. You can call it from 
DynaStar to proof-print the active edit buffer, or by Itself 
to print a disk file while you edit another. 
DynaStar II: OS-9 or FLEX $149.95 

CCFLEX Version: $ 90.00 

DynaForm text formatter: OS-9 or FLEX $149.95 

DynaForm CCFLEX Version: $ 90.00 

Both purchased together: $275.00 

Both CCFLEX Versions: $175.00 

AVAILABLE FOR FLEX 9 



DynaSpell 

From Dale Puckett 



FOR OS-9 AND FLEX 

DynaSpeil is the most versatile 68XX spelling checker 
available 

MENU'S MAKE OPERATION EASY. From the menu you 
may: Print a list of suspect words; Print a list of valid 
words; Check each suspect word one by one; Read your 
text, stopping to check suspect words; Use additional 
dictionaries for more thorough checking or special ap- 
plications; Build an additional dictionary of newly ac- 
cepted words; Write correct text file to disk. 
While checking you may: Accept the suspect word; Ac- 
cept and save In the dictionary; Replace with correct 
spelling. 

Designed to be used by the layman, DynaSpeil is right 
at home in the office. Ease of use and speed will recover 
the cost in days. 

22,000 word dictionary covers the first 25,000 entries in 
the American Heritage listing of the most common 
English words. 

500 built In common words (and, or, the, etc.) and 300 
specific to your field, filters the text and allows a large 
file to be processed even in small computers. 
PRICE $199.00 
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AnnouncinoElectroScreen™ 

the Superior Alternative .y^. 




onlv 

$595 



to the Traditional Alphanumeric Terminals 




The Elect roScreen M Intelligent Graphics Board Features: 



Graphics 

• 512 x 480 resolution bit-mapped display 

• Interleaved memory access — fast, snow- free updates 

Intelligence 

• 6809 on-board mpu 

• 6K on-board firmware 

• STD syntax high level graphics command set 

• Removes host graphics software burden 

• Flexible text and graphics integration 

• Multiple character sizes 

• User programs can be run on-board 



Terminal 

• Terminal emulation on power-up 

• 63 characters by 48 lines display 

• Easy switching among user-defined character sets 

• Fast hardware scrolling 

Additional Features 

• SS-50C and SS-64 compatible board 

• Board communicates with host through parallel latcnes 

• Composite and TTL level video output 

• 8 channel 8 bit A/D converter 

• Board occupies 4 address bytes 



See your dealer today! 
The ElectroScreen manual is available for $10. credited toward purchase of the board. 



The ElectroScieen has a 90 day 
warranty from purchase date 

(Dealers, please contact us for our 
special introductory package 




Privaclnc 



(703)671-3900 



3711 S George Mason Dr Falls Church. Va. 22041 
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Flex User Notes 

Ronald W. Anderson 
3540 Sturbridge Court 
Ann Arbor, Ml 48105 

SOME THOUGHTS 

I just prepared the last column for mailing, and since 
Christmas Is rapidly approaching, I thought I would get a 
good start so I don't have to spend the hoi I day week 
worrying about getting a column done. 

Some thanks are In order. The December 1982 Issue of 
'68' Micro Journal arrived today. I would like to thank 
Don Williams here for the very kind review of my book. I 
hope ft lives up to Don's review In your mind If you get a 
copy. Incidentally* since It was my first book, It was 
done on a fixed price deal with TAB, so the number sold 
won't Influence what I get out of It, except to make TAB 
receptive to my writing another book If sales go well. I 
value the comments of readers concerning the column and 
what i write In It, and I would also value any comments on 
the book "From BASIC to Pascal" If any of you would care 
to send critical comments. Do you think the 
presentation was out of balance, too deep, too shallow, 
confusing, covered everything but*,., etc. 

Forth Again 

Just a couple of days ago I received a large amount 
of material from Ray Tafbot showing some Forth 
applications in what I would call Real World systems- Pub 
not had a chance to study all the material, but I will do 
so and come back wfth a report on what I find. 

Along the same subject, I received a call from Manfred 
Peschke today. He tells me that his company has written 
a very large machine control program In Forth* He Is 



also. It Is becoming apparent that there ore people out 
there doing significant software wftn Forth. They all 
Insist that their programs are readable and that more 
than one person CAN work on a Forth program without 

freat difficulty. Manfred said that the Forth words 
hey write tend to be very short, no more than four lines 
or so, and that the "rules" are to document the 
parameters passed In and out on the stack, along with a 
line or two description of the word. He also Indicated 
that because Forth words tend to be used so frequently, 
the end result object code Is SMALLER than the 
equivalent program written In assembler. His estimate 
Is that the code Is about 801 as large as the assembler 
code to do the same thing. He said that there are 
considerable calculations Involved In his program. I 
suspect most of them are Integer calculations. 

My estimate for Pascal Is that the end code Is two tc 
three times as large as the equivalent Assembler 
program. Forth fans out there, don't all Jump up and 
down too hard yet, even Ray Talbot admits that Forth 
Isn't good for every kind of program* He particularly 
Indicates that it might not be quit© what Is wanted for 
Scientific Calculations. I'm current^ working with Forth 
In an attempt to write some standard words for my 
applications. If I am successful, I can see the 
possibility of trying Forth for one of my machine 
programs in the future* My programs In that general 
area tend to run about 10 pages of Pascal and a couple 
pages of assembler hardware drivers. It ought to be 
possible to do It with about three or four pages of 
Forth program. 

I have received a letter from G ary Bergstrom 
concerning my January column remarks on Forth, and I 
thought you readers ought to hear a Forth user's side 
of the story too, so I am quoting It here, essentially 
Intact, and I will add my response. 

" Dear Ron, 

Your comments on Forth are a little misleading ( f 68* 
Micro Journal 1/83), and as I said a year ago, yo carry 
more Influence than you think. People see someone 
saying negative things about something and even if the 
wrfter changes his mind later and prints nice things the 
damage Is Bone. ( Imagine i had a column and said that 
Pascal was worthless etc etc. and then later said - 
never mind. What would the reader remember? Think 
about It.) 

As 



the only language you can extend). At this (controlling) 
it shines and you cannot cannot cannot touch ft for 
speed, conciseness, or legibility. But it is still a young 
language having spent most of Its time to date In radio 
observatories and the like, and only recently emerging 
Into the light of general programming. Many of the things 
that you say you must write ifl order to do what you want 
are already available In the public domain and more are 
becoming available dally. 

Take for example floating point. You said that "there 
Is no floating...". That Is not the reason that 
traditionally Forth has not had floating point, and 
please note that most Forth's today have floating point 
as an option. The reason for the lack of floating point 
was speed. Very simple. Control programs typlcalty are 
doing things In real time and hence optimized fixed point 
Is used. T don't see how you could spend "considerable 
time learning It" and not realize this. 

Also your example of a mailing list program uses a 
feature of Pascal that is typically not Included In basic 
Forth packages - file handling* I feel that tills 
challenge of <1!> hours to develop In "Forth Is a little silly 
but I think that it could be done Including the 
leneratlng of a file handler adequate for the job 
. assuming frvat you wouldn't let me use one of the public 
domain Forth programs which handles files). But i don't 
have 10 hours to spare* All of this Ignores the power of 
Forth. My Forth kernel doesn't have strings but I have a 
couple or screens that add strings; It doesn't have a 
case statement but I have a couple of screens that 
contain 4 different kinds of cases - a different kind for 



I 



each type of application ( ah, I hear It now - Why have 
four kinds when my Pascal can do everything with just 
one? Sure, and we can build computers with JustNAND 



Forth was not meant to be an end all language* 

age which \ 
d except for LISP," it seems to be 



originally designed It was a controls language^ w h was 
easily extendable <an ' 



gates. If you don't want to learn four Just learn one 
and Ignore the others and you can still do as well as 
Pascal but If you want performance then don't refuse to 
continue to speak In a language without becoming fl ent 
in It). It doesn't have multidimensional arrays but again I 
have a screen that does; etc. etc I can extend my 
Forth with software from myself and those publications 
which support it, 

This doesn't begin to touch upon the true 
extensibility of Forth using the CREATE D0ES> 
construction. This discussion can go on for a long time 
with someone who doesn't appreciate It and go nowhere. 

Pascal Is nice and Its file handling c pablllty Is equal 
to any but It cannot be changed- Procedures can be 
added but they are not the same as being able to add 
logical constructions. It Is fixed. Forth can be used 
by the novice In the same way and would appear to have no 
advantages but let that person use It more and more and 
they will realize the power. 

i use Basic when it Is the best too). I've used APL 
when It was. And Fortran, and LISP, and Assembler. In 
fact I Just finished writing a 12K program here at work 
for the 6800 all In assembly language. I use Forth at home 
and we will be switching to Forth or l KP here at work to 
Improve productivity l n C M runs faster, takes more ROM 
space, Is slower to write, and less interactive than 
Forth, but this Is a higher volume control application 
and usually speed comes first and development time and 
convenience Is second). 

As an aside - when I'm working on say a short' (<5 
screens) Forth program and discover a typo on a screen, 
I can run the editor, recompile and execute the program 
In less than t minute. To do the same thing on my FLEX 
system In '^C" takes about 20 minutes (this would be only 
about 12-15 minutes If I had 2 disks but I only have 1). 
Now I know our programs are supposed to work the first 
time but you'd be surprised ar how much time you can 
spend waiting for the machine to complete an assembly* I 
spend almost no time waiting for the Forth." 

My Response 

Gary, after my Initial Irritation with you for your 
quickness to send me a "nasty letter 1 * as compared to 
your slowness to write an article for '68' about how 
Forth Is so nice, I got down to business and wrote you a 
response. I decided that It would be fair to air your 
letter and my response in this column. I don't want to 
debate endlessly the merits of particular languages (or 
their lack of merit). I never ever called Forth 
"worthless" as you imply in the first paragraph of your 
letter. Also, feel free to write anything you Tike about 
any computer language* I give our readers credit for 
enough brains not to take any single opinion as absolute 
truth, particularly when it Is clearly labeled as opinion. 
All of the languages serve a puroose* Thev have a slot in 
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the scheme of things and each Is better at solving a 
particular type of problem. 



I have probably given the Impression In this column 
that I am a Pascal Nut, and that I feel that nothing else 
Is any good. Nothing could be farther from the truth, I 



have said In previous columns that I use BASIC frequently 
to work out a particularly complex calculation, and then 
translate the BASIC program to Pascal. I do that Just 
for the reason you cited In your letter- BASIC Is 
Interactive and I can change a line and try running It 
again. 

I have written a program of about 6K In Assembler for 
a machine to balance crankshafts (6 different kinds) 
automatically, calculating from the unbalance readings on 
which counterweights and at which angles to drill 
standard diameter holes how deep, to balance the crank. 
It doesn't take much more than High School Trigonometry 
and a bit of Integral Calculus to solve the problem of 
"resolving" the unbalance vectors along the axis of the 
crank so that material can be removed at counterweights 
rather than In thin air. For this program I had to 
write my own Trig functions In Assembler- 

Before the first usable Pascal came along, 1 had 
purchased and tried an early BASIC compiler (a five page 
program compiled Into enough object code to overflow my 
Slmlf at that time of 48K). T bought a couple other BASIC 
compilers and found them unacceptable for their rather 
arbitrary "extensions" to BASIC which Is not very 
standard In the first place. I wrote the control logic 
for a machine (the replacement for a relay logic control 
system) In a version of PL/M that was then available for 
the 6800. It ran fast and worked fine, but the PL/M 
Implementation had only Integer variables so I couldn't 
use It for my complex calculations* The company bought 
the A/BASIC compiler, which also worked fine for Integer 
applications (of which we had very few). 

When Lucldata's Implementation of Pascal came along 
(with REAL variables) I bought It and was able to learn 
enough Pascal In two days to be able to translate a BASIC 
program of about 300 lines to Pascal and get It running. 
A couple years ago when Omega Soft released their Pascal, 
we bought It and found that It was faster than any other 
compiler we had ever tried. It Is cumbersome to use. It 

Generates 8 or 10 files for every program that you write, 
he compiler Is reasonably fast. The assembler Is very 
slow. The restrict Iveness of Pascal Is a PAIN. However, 
the programs are extremely readable (even after a couple 
years)- The documentation Is complete so that someone 
else can pick up a program and understand It. The point 
Is that we use It because It Is the best thing we have 
found to date to solve the sort of problems that we 
have. I have been invoived for over a year in the writing 
of a Pascal program to control a multt axis machine tool. 
I have written approximately 1/3 of the entire program. 
My part was done entirely In Pascal* Another programmer 
wrote about 10K of drivers for the hardware Interface In 
Assembler. A third programmer wrote a multl tasking 
system In Assembler, and the complete operator Interface 
(a number of display pages with input by cursor 
"oslt Ion Ing and numeric keypad) In Pascal* The whole 
hi rig occupies nearly 96K of EPROM. 

I am not a staunch Pascal fan. I said once In a column 
that I didn't care what language I had to use to write my 
software, as long as it produced code that was 
reasonably compact and had acceptable execution time. 
When I find s thing better I will use It. 

Let me quote from your letter above. "At this 
(controlling) It shines and you cannot ... touch It for 
speed, conciseness, or legibility." A few paragraphs 
later you say "C runs faster". 1 have a sort of 
benchmark program that I use to try all the compilers I 
get a chance to test (my prime number program). The 
Forth version doesn't run as fast as the one written In 
ABASIC, the PL/M version I mentioned above, or two of the 
four rascal compilers I have tested (even after Talbot 
Microsystems wrote a special unsigned dfvlde for the 
Forth version, that runs faster than the normal signed 
divide). 

Getting back to the quote above, no one In his right 
mind woufd argue that Forth Is not concise. So Is 
shorthand, but not too many people can read It* I 
realize that Forth can be written legibly, but I'm told 
that avid Forth programmers look upon the use of named 
variables with displeasure, and would rather have several 
anonymous parameters fbatlng around on the stack to 
save execution time. 
That doesn't help readability at alt- 

You said that Forth Is extendable as is no other 
language but LISP. I suspect vou will sav that I don't 
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understand your definition of the word- I take 
extensibility to mean that you can write functions In the 
language that are "called" exactly like the functions 
already available In the language* By that definition, 
Pascal and "C" are as extensible as any language* In 
Pascal one gets the value of the sine of an angle by a 
statement such as VALUE := SIN (ANGLE); A function can 
be written, (for example, the Sine squared function) so 
that It can be used In exactly the same way. VALUE : = 
SINSOR (ANGLE): By my definition that Is extensibility. In 
"C" that function maybe made a separate program module 
that may be pre compiled and simply linked to fne program 
If it Is needed. Some versions of Pascal allow the same 
sort of pre oomplHna and linking. I appreciate the fact 
that my extensions don't become an Integral part of the 
language, and think that Is a definite advantage! 

You thought my example of a mailing list program was 
"sill/ 1 because I ought to know that file handllnq Is not a 
standard part of Forth. THAT WAS MY P0INT1 

I've read all the arguments about why Forth doesn't 
have float Ing. point (Including the chapter In Leo 
Brodle's book^Startlng Forth"!. The example program 

?lven there Is very nfcefy worked out. The difficulty Is 
hat the problems I have to solve don't fit that approach 
very well. I might have an operator Input a dimension to 
four decimal places, le. K3756 inches. I have to 
accommodate Incremental encoders with pulse counts as 
high as 200.000 per Inch. Numbers at both those 
extremes might be present In the same equation! 



I am a bit surprised to learn that Forth has some 
floating point packages available. I've not seen one 
offerecTas parf of a Forth for the 6809, though I have 
three Forths. Perhaps that would enable me to use 
Forth effectively to solve my programming problems- 

Gary, you have one excellent point that I can't debate 
for a moment. The compile times for the versions of 
Pascal and C that 1 have are long. Unfortunately the 
best compiler In terms of programming to solve the 
problems that my programs musT solve, ts the slowest. 
Forth compiles like flghfnlngl 

I think the crux of the problem Is that you (Forth 
users collectively) think the best feature of Forth is 
that you can make It anything you want. To me that is a 
disadvantage* | think the compiler should be a STANDARD 
thing, ana that the user program should be the only 
variable. In Forth, the compiler and the application 
tend to merge Into one entity. In fact, when you write an 
application, you are essentially J ust extending the 
compiler. 

As I have said every time I write about languages In 
general and Forth In particular If you like FortE, USE 
IT and LOVE IT. Just don't tell me that everyone who 
doesn't like It Is stupid. 

Norm Comjno has written a column for this magazine for 
some time, dealing with the "C" language and the 
presently available Implementations* Why doesn't s 
one of you avid Forth users do the same with Forth? 
Sorry, but '68' doesn't pay anyone who writes articles for 
them, still Interested? 

MORE ON SPELLB 

I Just received a "final" version of SPELLB, which I 
reviewed several months ago- I decided to run a few more 
checks* so 1 ran the file That I have been using all along, 
one with approximately 3900 words In It. Time from 
command to list of suspect words was 3 minutes 26 
seconds compared to 3 minutes 44 seconds reported with 
an early version. The suspect list was 16 words long, 
and NO valid words were contained In It, 

Since J had reported all the valid words I decided to 
try a couple other files. The largest one In the book Is 
118 sectors or very nearly 5000 words. It took 4 minutes 
12 seconds to produce a word list that contained five 
words that 1 consider valid. They were "quadrants", 
"radians", "redone". "Incremented" and "decremented". 
By use of the HELP facility, I found that the dictionary 
does contain "quedranT", "radian", "Increment", 
"Incremental", and "decrement". If you want to argue 
that "redone" is a coined word. I won't be upset, if 1 
were not certain that I haa spelled "quadrants" 
correctly, the use of HELP woulo show me the word 
"auodrant" and I would n d no further help, so I could 
eliminate that without resorting to a hard copy 
dictionary* Same goes for "radians", '"Incremented" and 
"decremented". When the same word In a slightly 
different form appears In the dictionary, there Ts no 
need to go look It up! 
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I tried two other files of about 2800 words each, end 
SPELLB reported NO valid words in one of them end three 
in the second. They were "untermlnated" "sparingly", 
and "referring" as in "The transmission line was 
untermlneted. If you use SPELLB you will find yourself 
referring to the dictionary very sparingly 1 *- The 5PELL8 
dictionary contained "reference" end "spare", but 
nothing like "untermlnated". 1 wouldn't be upset If 
someone told me that " untermlneted" is a technical word 
that belongs In my "special dlctionery". 

Dan Fernsworth of Pelm Beach Software assured me 
that he would try to make the dictionary comprehensive 
enough so that no valid words would remeln In e suspect 
list, 1 think 8 words In e totet of nearly 15000 comes 
admirebty close to that goal* By my calculations, my 1 MHZ 
system with 8 inch disk drives allows SPELLB to clip elong 
checking Just about 1150 words per minute! That number 
may vary somewhat for another writer who uses e 
different mix of common words end unusuel ones, but for 
my texts it wes rether constent, varying only e few 
percent from one file to enother. I reted this soft were 
highly In my review, end 1 cen honestly sey thet the 
continuing efforts to Improve It neve been successful. 

Heeting Control 

Lest time, we had sterted the discussion of a home 
heating control to lllustrete the use of a 6809 system to 
perform a control function- We had gotten as fer es a 
program to use the JPC A/D board to reed temperetures 
end temperature commands on up to 8 rooms (16 channels) 
end display the readings end commends on the termfnel. 
He also showed the schematic for the hardware required 
for that portion of the control- In order to oe+ this 
out on time or nearly so, and due to the lengtn of the 
Forth discussion ebove, 1 em going to defer that subject 
until next month - 
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MMAT m HAVE HAD T>* NDST «Efiff ST FOR FTHJM 
THOSE MHO OAcfcLF YITH THE WfiL THING 1 

I'll keep this shortl The listing provided this month Is 
a "felrly" (I would guess 9W) Cross Reference Listing of 
the Color Computer VKT BASIC ROM. The arrow pointing 
IN In the first column indicetes that that loceflon Is a 
Subroutine Entry Point. Note especlelty locetlon $B2CE; 
It Is en Indirect Subroutine Jump off of the X Reg, Also 
note thet there are no cells from within the ROM to the 
1 nit lei Input Vectors beginning with SA000 (end no need 
for them). Finally- ALL of + ne Hardware Vectors ere 
lumped together at LBFFA; 1*11 try to sort them out for 
you next month. 

If >ou come up with eny additions, let me know. 
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8303 








L80C4 


8KD 








VBOf 


80T3 








LBCOi 


8(10 








L8CC9 


8CI6 








L8FI8 


BE 07 








L8CIF 


•EOF 








L8C34 


FE2B 


BE2F 






L*t4B 


8C3C 


8t43 






L8£3o 


BE6B 


8E8A 






Ll»C75 


8E60 








LI4F84 


W7E 








LBCBC 


8E90 








L8C9B 


8E94 








LIC A3 


Bt9C 








LKAB 


8EAC 








LBTBfl 


80€E 








L4F84 


8C9C 








L8CBC 


BE 84 








L8EC0 


8984 








IBTC3 


8C48 








> KP€f9 


»7Q1 


8DB3 BUT 


8FA6 


8FB4 


LBBEF 


8EEB 








LAtro 


8F8A 








> LBIFC 


BC1T9 


•FCC 8T30 






" L8T01 


t»Ef7 








LKFOC 


BTlC 








> L8^3B 


BF26 


8FB4 






>,KF<>1 


PTF7 








L8F<1C 


BF1C 








L^F^B 


BF24 


■►84 






L8^3B 


RFt4 


BF7B 







Li**?; 

LBA>S 

> LBA79 

> LBA7B 
■ LbAiJl 

L h-'Vi 
L8A92 



8AIF 
8AI* 
8A74 
8444 
8*7? 
8AIA 
BCD 4 
8474 



L8TA9 
LBTBJ 
L8F »P 
tlHC/ 
i.8FC7 
LC*»0 



L849A BA*0 



BHC2 
*9E9 60C8 



AD7F BFJ2 

BOf A B8XC 

BT4F 

•ADC 8AE4 BACC 



»■«--.. 
W*2 

8* fa 

BF91 8F49 
BFB7 
AlOA 

A^T7 8449 
ATDI 



A41E 

A4I8 8249 

B24C 

A927 

49FE 

AID* 

AJCB A9F7 

«9A2 



84T0 8712 8742 B74B 
0413 A942 Af42 W2W I 



A340 AC31 07 34 
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LFF20 
LPF2I 
LfF22 
LW71 
LFFCO 
l*FC* 



LC624 
LC426 
LC670 
LC62C 
LC640 
LE8E4 
LF0O6 
LFFOO 

LFF02 



A934 A93B A983 

AO^A A2FD A76E ABSO Afl4& AS90 A9B7 A9f2 

A7CA ATI 8 A7F0 

*»D 

AQC4 A0F6 «*7A A9«| 

A031 

403B 

0A3C AC7T At 17 B7B« 
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*• QUALITY SOFOJARE IBDED m 
Standard S50 Bus and Color Cca^uter 

For the past few months we at the DATA-CO*^ Division of Computer Publishing, Inc. CCPD, the parent company of 68 
MICRO JOURNAL, have debated expanding Into the software distribution business. Many other magazines have been doing 
so for years. Presently there are many fine examples of software that has been developed by YOU our readers, that will 
never see the ♦light* of day 1 unless someone, with enough exposure and willingness to continually advertise, runs with the 
ball. 

Software Is the •backbone' for the real utilization of any computer, ours are no exceptions! Realizing that there will 
be some conflicts, with other advertisers, this has been no simple decision. However, since day one the foremost 
concern of 68 MICRO JOURNAL has been It's readers) Therefore, DATA-CO*** Division will accept, for appraisal, software 
that runs on 6809 systems, games, utility or applications programs. 

In the past there has been too much software offered that was not quite ready, nearly, but not quite. We will strive 
to eliminate that element. But right up front we tell you only that we will do our very best, nothing more. Also we will 
strive to keep cost to a bare minimum, while securing for the author a fair return. In royalty payments, promptly paid. 

Of course we will expect, no - demand, that the author keep the product free of errors (bugs), and maintain It on a 
prompt and business like basis. Also we shall require that authors be willing to furnish 'source' for those programs 
that justify, by price and utility. Inclusion of same. The lack of source code, properly commented. Is a continual 
complaint we hear. Not all programs will be sold with source, but where necessary, we will Insist that It be Included. 

In some Instances the program may be small or short and not Justify Itself as a 'single' sale product. In this event 
it will be combined with other like programs, and offered as a package. In that event the royalties will be split between 
the various authors. 

If you have software that you feel will qualify under this program please contact the proper person as shown below. 

Standard S50 Bus 

Don Williams 

Bob Nay 

Color Computer 

Tom Williams 

Bob Nay 

Remember, If your software has any problems or 'funnies' - GET IT STRAIGHT BEFORE YOU CONTACT USttltt Also get your 
source code In proper shape and well commented. There Is too much 99t code already drifting around. 



OATA-COT, TO 794, Hixson, TTi 37343 - <615> 842-4601 

A Division of CP1 



MAG Tape Drive/Controller for SS-50 Bus 

IBM-Compatible 

Can't decide? If your tape drive question is "to buy or not to buy." your one answer Is SOFTWARE CONSULTANTS. 
We've got a super IBM -compatible tape drivel controller from the leading manufacturer., .and you can buy one 
directly from us, or, well be your service bureau and do your dumping/transferring Tor you, Cither way, you'll get 
a great deal. 



GREAT HARDWARE 

Useful 

• Allows two way data 
transfer to and from your 
system to the big minis 
and mainframes. 

■ Software drivers run 
under OS9 Levels I and II. 

■ Mag tape device that's 
usable for hard dish 
backup under OS9 and 
as 45 MB of sequential 
access mass storage. 

Powerful 

■ Usable with any S5-50 
bus computer. 

• Heads & writes Industry 
standard 1600 bpi phase 
encoded tape. 

■ Controller card features 
onboard microcomputer 
with 8ft buffer. 




m Standard drive is Cipher 
Mlcrostreamer. Others 
can also be used. 

GREAT SERVICE 

Fast 

■ normally In and out 
within a week. 

■ Quick turnaround service 
(L day) for rush jobs. 

Reasonable 

■ Our low rates will 
surprise you. Call and 
find out. 

■ Tor dealers too. Let us 
get you out of a Jam. 



Bask system price $6800. 
Phone us with your problem and we'll get down to business. 



C 
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OFTWARE 



OIUaULTAMTS 



6435 Summer Avenue • Memphis, 77V - 38134 • 901/377-3503 
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"C" User Notes 

Norm Coflro 
3 Pryor Road 
Natick, MA 01760 

I hod hoped to start gettlnc Into the coding, In C, of 
some of the more Interesting "standard 11 functions as way 
of exposing you to more code* Instead, I want to get 
out a quick review of the Introl compiler, version 1.4 and 
reprint the file persuslng program VII. C that got 
clobbered by the proportional printer In last 
September's Issue- 

INTRO*. VERSION 1.4 

Version 1 -4 Is the latest release of the Intro? 
compiler. It has a number of Improvements and now 
supports the float and long data types* First the 
Improvements* 

The "compiler 11 Is now composed of four programs . The 
first Is the preprocessor, which has been named CP« It 
does both macro substitutions and lexical analysis and 
produces a file of strings and a file of lexemes. Next in 
line Is C1, the parser. It takes the lexeme file and and 
produces a parse tree file and a symbol table file. Then 
comes C2. the optimizer. This Is one of the major 
changes from earlier versions. The optimizer takes the 

arse tree and produces an optimized parse tree. 

Inafly the code generator, C4, takes the optimized 
parse tree, string file and symbol table and produces the 
assembler code for the 6809. 



f 



This new hierarchy gives Introl the ability to quickly 
build compilers for different machines by changing the 
code generator and recompiling the compiler, rrs a 
little more complicated than That but not much. 

While the compiler will chain to each pass 
automatically. Including the assembler. It Is not 
necessary to do so. Introl has Included a number of 
compile time switches that give the user more control 
over the compilation process* These Include the abllllv 
to specify additional directories for the compiler to 
search when looking for Include files, where to find 
additional compiler passes, where to build temporary 
files, and whether or not to chain to the next phase. 

Any phase can be started with the simple command 
syntax 

C? <flleneme> <swltches> 

The filename does not need to Include the extension. 
If the a particular phase being chained to Isn't found on 
the disk then control reverts back to the operating 
system. In the case of OS-9, a 216 error Is generated. 
This now allows users with 35 track single density 
minidisks to run the compiler by swapping disks. 
Admittedly, this Is far from optimal, but better than not 
using the compiler at all* 

As I mentioned earlier, the compiler now handles the 
data types float and long. The long Is 32 bit signed 
Integer with a range of -214748364B to 21474B3647. 
Unsigned longs ore not supported. The floats ore also 
32 bits with a range of about 1e 38 to Ie38 with six to 
seven digits of accuracy. 

The runtime package presently supports only add, 
subtract multiply ana divide. However, Introl describes 
their infernal format so that you should be able to 
Interface It to your own Mgher order math routines with 
little trouble. Expressions with mixed data types that 
yield a float follows the conversion rules laid out In "The 
C Programming Language". In cases where a float 
converted to a smaller data type, the conversion Is done 
by truncation. 

The library reflects the additional data types with the 
Inclusion of a few new functions and a rather complete 
version of prlntfU, which supports precision and other 
field formatting. They have also Included an error 
handler for handling things like Infinity and "not a 
number 11 . I won't go Into those at this time. 

As of this writing, I have put a couple of programs. 
Including vw.c, through the compiler with no trouble what 
so ever. I also used the librarian to add a function to 
the standard library. I may have run Into a bug. I 
tried to Install a snkall function, called hatoiO, benlnd 
exlt() which was the second function In the library* The 
librarian squawked about hatloO being "too bio". This 



seemed rather odd, so I then tried to Insert If further 
Into the library, but ahead of any other functions that 
It referenced. No problem this time, all worked as It 
should have. I have notified Introl of the problem. 

I have not tested the float and long data types other 
than displaying them with prlntfC). They printed out 
properly, f hope to have an update for you In a later 
column. Incldenfly, a reminder* C compilers expect that 
functions will normally be returning an Integer (or 
equivalent). If a function returns something other than 
an Integer, char or pointer, then you must declare what 
It does return so that the compiler can generate the 
correct code. If you write a function that returns a 
float or a long, then you have to declare that fact to 
the compiler. 

When you are writing (declaring) the function It Is 
done like this 



flo*t »in <*««!•> 
float *n«l«; 

, C 



This tells the compiler that sln() will be returning a 
float. 

When you want to use sln() In a program, you must 
again tell the c pller with the syntax 

float slnO; 

I have found It easiest to declare all these w s pedal" 
functions In a header file that I Include with the various 
program modules. Even If the function Is declared In the 
same file, you should declare what It Is to any other 
function that must use It, either globally or within the 
calling function. 



VU.C 



Included In this month*s column Is a program for 
perusing a file, the complete description of how to use 
Tt was 



Included here. 



given In last September^ column and wl 
so here. The listing however, was maulea oy me 
proportional printer which Imparted Its own special 
meaning to certain punctuation used rather heavily In C 
programs. I have complied and run versions of this 
program with both the Words Worth and Introl compilers. 

It should be pointed out that the function dumptlneO 
was written In a somewhat awkward fashion to avoid using 
the file string function fgetsO, which was not 
Implemented In words Worth's FLEX compiler. If you ore 
going to use the program on any other compiler, you 
might have to play some games with this function In terms 
of how It Interprets the end of line character. 
Different run time packages may convert the carriage 
return, '•r 1 , to a newllne, '•n', when Inputting from a 
file. 

The version shown If for the Words Worth compiler. If 
you have the Introl compiler then you should make the 
following changes. 

!) Replace all the define statements with the 
following. 

#i ncl ud« "stdio. h M 
#d«f in* CRT8I2E 24 
#dtfint BIQ6UFF 265 

2) Delete the function atolO at the tall end 
of the program. It already exists In 
stdllb.llb 



3) Use the following version of the dumpllneO. 
d unw»l i rv*<tr*ad«> 
BOOL r>mod«i 
C 
ch*r buff CBIGBUFF3J 

if <f»«ts<buff,sizeof<buff>.f cb> «•» NULL* 
return<FALS£>* 
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if <rmo<3m> 

r>uts<buf f?i 
rtturn<T*UE>S 

> 

1 got a big surprise when I tried to run RLOAD for the 
Words Worfn version. It couldn't find a getcharO. It 
turned out that Words Worth doesn't Include getcnarO 
as oart of their library* So I wrote a very simple one 
ana Included It In cchar.ltb. To put It In yours you will 
need to edit the files CE0UATES.TXT and CCHAR.ASM as 
follows • 

In CEQUATES.TXT. Include an equate for FLEX's getchr 
routlne et SCD15. 

In CCHAR.ASM, you will need to declare the entry point 
to getcharO and then Include the code for It. fro this 
by Inserting 

ENT getcha 

before ell the other ENT definitions. Next, Insert the 
code for the routine before the code for getsO. 

* 

* vttch* »et * ct>*r*ct«r from stdin 

* ON EXIT 

* O - contain* the input ch*rmcttr 
* 

tttch* EQU * 

JSR GETCHR 
TFR A»B 
SEX 
RTS 

Here's a little hint to get you thinking. You can, to a 
degree, determine the final size of your program by what 
functions you use- For example, If you are not prjntlne 
numbers try to ovoid prlntfO Tike the plague. Call putsO 
Instead. The following two code segments produce the 
output on the terminal* 

r>rlntf <" this i* & ttrinti ^n\n%fU>i 



putsC*this Is » slrint: ">! 

ruli<itr>P 

puli< N \r>sn")i 



That's a wrap for this month. A recent journal put 
CM contained some Interesting pascal 



out by the A 
proce 
to have 
next column 



>y the ACM contained some Interesting pasc 
dures and functions for handling strings. I hoi 
/e them coded up and tested in C for you In tl 

aLihh Till ^k«**a» 



n the 




Till then 



• last •ditt Ftb~7-63 

* 

* A *rp*r*i» io fcid -trmlM disk rilu, 

•dtflnt CRTSI2E 24 
•tsmtinm FM£OER «M1«<1> 
•<imtinm 800L i f»t 
•dtfxot METACM** ini 
•d*f*n« TRUE | 
•d«f»n« FALSE Q 
fldtfint ERROR -1 
#<J«fln« EOF -1 
•d«fin« FILE char 



FILE *fcbl 

ant irfld 

ch»r »»r»\>L3» 

< 

iht II 

if <irtc < 2) 
C 

wt intf ("m>U»»*«i vu »r» fr*r»J M )l 
tx i t<> I 

> 

i - ei 

whll«(*+i < arte) 
< 
If <<feb - ro»tn<»r»v(|},"R">> » ERROR* 

F>rintf<"Sn€rror Ofimnt filtl fct** irtvtl 3>T 
• Is* 

C 

<U*»]*vOl 

rcioct.<fcb>f 

> 



Why would you want to do It that way? Because a 
complete version of prlntfO Is a BIG function. As a 
test, I complied and linked the following two programs 
with the Introl compiler under 0$-9. 

mmtnO 
C 

> 

m*i n< ) 

printfOl 

> 

The version with putsO came out to 1182 bytes, 
whereas the version with prlntfO was 6663 bytes long. I 
used the librarian to determine the size of the runtime 
setup and exit code which was 179 bytes- That means 
that prlntfO Is over 6K of code. You certainly wouldn't 
want to use It In a utllHy that should load In from the 
disk quickly. Jn the case of FLEX paying attention to 
this sort of thing may even mean the difference of 
whether or not a program can fit In the utllHy area at 
SC100. 



WMArs NEW 

I had talk with Mlcroware recently and was glad to here 
that they are coning out soon wlfh what they believe to 
be a very good C compiler. In Its Initial release. It will 
Include all of C with the exception of bit fields- 
Initially, the whole package will Include the compiler, 
relocating assembler linker, standard library and the 
source code to some of the standard functions. 

Expect It sometime altar March or April. It should be 
In the $400 price class- At a later date the assembler 
and linker will be sold separately. 



< 

lot hntcnt» Mxcnh nt*w*> 
char e. »n*tttlft)f 

MiKCnt - ntw*»%x • CRTS12EI 

llntent - 11 

FOREuER 



whJl* (1 intent** < wiixcnt) 
C 
if (duMrl ln«<TRUE> — FALSE> 


rmiu 

> 
PronptOl 


rnl 








aixent ■ ntM 


taxi 


lintcnt ■ li 






c ■ »n**»tr<* 


nstt>l 


if <isdl*i t<an»t«Cftl)> 


tiftxent 


• ltOUIMl«)l 


fwi teh<c> 
< 
c»s« * 






i 


brttkl 


Clft * t' 


i 


klllprowtOl 

printfC'iki^ifif >ad fcrMnful ls"»aa 

Mxcot • tixcnt * ntvftixi 

skl»l intg(nikCnt>) 

•ixcnt ■ nwMMf 

brtmkl 


cut *V 


a 


kU^rottPtOi 

rttvrni 


Clft *«* 


a 


hi HfCMPtOI 

Tifir iMMim kd lint M .n»Mcnt)t 

tklp-l int*<n*xcnt>t 

*axcnt » n*o*»xt 

brttk* 


cast *z' 


i 


ftv»»x • M«kcnti 
brtmki 


cast p ^f 


1 


lintcnt • Mxcnl - 11 
brttkt 
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( k»xCnt - 111 

t>r«*kf 
print f\**\ee7**)» 
6r«*kl 



> 



»!<>» 



FM.SE) 



fkl^ ll n*tf Ci 1 n«S> 
1 n t J i *-••• I 
< 

uhUt < — lin«s> 
C 
if <rfuiitf» lift* (FALSE? 

rtturnl 
> 



dm#l ina<#*«o4«> 
BOOL *-<»o4«» 
C 

FOftCUCR 

c 

if <<c - «*tc<fct>> ~ COD 

r«twrn<FALS€)i 
if (PHodt — T*UE> 

»-utebar(c>» 

if < C ■*» r \r • J 

^utchkr( * ^i>* > I 

> 
if cc •• 'vn' ) 

r«twrr»(TRUE)1 
> 



knautr(f) 

chkr <•! 

< 



kl ll^ro»i»U) 

C 

> 

* 
ttoi<s> 

CA»r *•! 

C 

int ni 

n » et 

gMl«C)fdiiit(»t)) 

n * <n * id) ♦ *•■♦ 
r«twri>< n> I 



0S9 USER NOTES 



By: Potor Dibble 
517 Golar House 
Rochester, NY 14620 



Editor's Note: This Is the first of a new 0S9 

column. It Is Intended as both a tutorial and 

platform for discussion. Your response to the 
author is Invited. 

So we all here at 68 MICRO JOURNAL say - 
"Welcome aboard, Pe+9c\ n 



P - SI 

FORCOER 

< 



C - ntch«r()i 
if tis<»i«it<0> 

C 

**•♦♦ m <l 

conttno*) 
> 
•ls« if <c m *vt' 

< 

if If > ■ > 
C 

*nnlf<* \&**>i 

> 
till 

continual 

> 



** - ■ ^6 • I 
rtturn< to lcx*«r < c > > I 
> 
/» 

* !*• follo**in* two rouliott »u»t *• 

* cHtriM for t*# particular t«r»ir**l 

* in u««. 



* 1> **t Jny<rM vld*o 

* 2? writ* t*« prg^t 

* 3> r«ttort nernnl vid+o 



► to 



*rintf<*Ne33*— 



-v*33^ 



•* 

• 1> *mt Cursor it bvtinnint of t i n« 

* 2> «fkM th« lift* 
*• 



This Is the first of what I hope will be a long 
series of columns about OS-9 Level Two. I plan on 
discussing some Interesting aspect of programming In 
each column- 1 also Intend to use this as a soap 
box for my red leal Ideas about computing In hopes of 
stirring up some controversy- My computer was 
financed largely by teaching computer science. 
Please bear with me when I have a fit of teaching. 

First, by way of introduction, I work as a 
systems programmer on a variety of machines. I 
teach computer science courses at a local technical 
col lege, and take computer science courses at the 
focal university. I worked my way up to my Job as a 
systems programmer through years of work on payroll, 
student systems, and other business programming type 
things - you might say I paid my dues- I got 
started on microcomputers by building SwTPC's 6809 
computer kit. I now own two computers, one running 
only FLEX, the other large and frequently used. My 
large computer has a GIMIX DMA disk controller, and 
a GIMIX 6609 CPU board, two eight Inch disk drives, 
344K of useful ffwmory, and assorted I/O boards. It 
can run OS-9 Level Two or FLEX. 

I have a collection of strong opinions about 
computing In general, and microcomputing In 
particular. The most relevant opinion Is that I 
think the staggering sum I spent to buy OS-9 Level 
Two together with languages and utilities was money 
that could not have been better spent though I do 
wish the prices were lower. I think everyone should 
get to watch their computer seem to come ellva, not 
Just those people who are willing to work two Jobs 
and live on pasta to save enough money* I belong to 
tha school of radicals who believe that Basic Is bad 
for your brain. I like Pascal, but find It a little 
dull. Assembly language Is lots of fun, but slow 
going. I am looking forward to getting C; It sounds 
promising. 
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i think It Is practically Immorel to foroe even 
two people to attempt to use a 6809 at the same 
time. The fact that It sometimes does a passable Job 
with several users Is not a sign that there Is 
plenty of power for several users- The 6809 only 
runs Just so fast- No operating system can make It 
run fester- Digital Equipment Corp- seems to think 
Its small VAX Is probably a good single user 
machine- I have noticed that the Xerox Star Is very 
slow when It's editing. Both of those computers can 
run circles around any 6809 machine (and cost far 
more)- Both of them run software written by top 
quality programmers* The difference Is that those 
computers are expected to make things as easy as 
possible for their users at any reasonable expense- 
People who use and program microcomputers don't 
expect that much out of their machines- Our 
machines are microcomputers- We expect them to do 
the same kinds of things other microcomputers do<» 
Our machines are small, but they are part of a new 
generation. They can do the work of several of last 
generation's micros- We can use that power to give 
several users the same poor service, but I would 
rather see one user wel 1 pleased by a computer than 
several somewhat dissatisfied users - 

There Is some truly excellent software 
aval fable for the 6809- I would rate Mlcrowore's 
Pascal as one of the best Pascals I have used on any 
machine- A lot of features ere missing from OS-9 
Level Two, but whet Is there Is up to the highest 
stenderds end It should be eesy to edd most of 
whet's missing* From my reeding of the manual, 
Beslc09 seems to be en excellent lenguege (es Beslc 
goes)- f own e greet deel of softwere for FLEX end 
OS-9, but J can't think of ony other programs In 
that leegue. I am open to suggestions- The 
challenge Is to be et leest es good es eny similar 
program on ANY MACHINE. For example, I would love 
to find en editor thet qualifies. My life would be 
much easier If I could run en editor compereble to 
EMACS, XEOIT, SPF, or SED on my micro. OYNACALC 
seems, from Its edvertlsements, to be es good es eny 
of the Vis I clones, maybe the best of them. 1 am 
holding a grudge egelnst thet program because It 
only supports 3000 cells (under OS-9 Level Two) 
Thet's es good es most Vlslclones, but I heve enough 
memory for much more then that. The chence to be 
the first spreed sheet program to support olmost e 
megebyte of storege (maybe 30000 cells) In memory on 
e micro wes only e few hundred instructions ewey, 
end they didn't do it. I would like to propose some 
programming chel lenges to the 6809 community. 

I heve used spelling checkers thet cen be esked 
for e list of suggestions for the spelling of e 
questloneble word. The good ones will provide 
synonyms on demend too. Doing this et e decent 
clip, end fitting the dlctlonery on e floppy disk 
should be en Interesting chel lenge, running 0S9. 

I don't know of eny high level lenguege for the 
6809 thet cen use more then 64K even with 
restrictions. No, I take thet beck. Mlcrowere's 
Pescel cen use e sort of virtue I storege scheme to 
deel with more then 64K of code, but there Is no 
eesy wey to use more then 64K of dete. Whet I hed 
In mind wes e lenguege thet could make use of 
extended addressing. There ere lots of useful 
tricks, ploying with the OAT, using softwere 
Interrupts cleverly, or simply running ell 
procedures {subroutines If you like thet term 
better) es FORKed tesks. Minicomputers used to be 
limited to e 64K eddress spece. Some of the tricks 
used to fit big programs Into them cen probebly be 
edepted to our problems- 

A stete-of-the-ert editor would go e long wey 
toword promoting the 6809- As beslc requirements, 
such en editor should be e screen editor cepeble of 
using eny evelleble memory. It should Include the 



ability to edit multiple files of arbltrery size 
without resorting to the "new" or "more" kludge- It 
should Include the best of Wylbur, EMACS, end the 
other common editors. 

if I seem e little shrill obout softwere, It is 
beceuse 1 see my beloved 6809 machine being squeezed 
out by the flood of high quellty microcomputers on 
the market. From my point of view, the best feature 
of the 6809 Is Its elegent erchltecture- It Is so 
eesy to program thet It should be pulling eheed of 
the field with e flood of superb softwere- I see 
only e trickle- 

0k, now I Ml get off the soap box end down to 
business- I am thinking of selling both my 
computers- I positively lust after the new GIMIX CPU 
boerd end "level Three" operetlng system. If there 
Is enother microcomputer on the merket thet does 
whet It does, I heven't heerd of it- Lerge 
computers such as IBM 370 architecture, end lerge 
OECs con ceuse Attempts to write Into "protected 
storege" or execute Invalid Instructions to fell. 
Spec lei code Is executed whenever e program attempts 
either of these activities- Usually the program 
thet did It Is stopped- Microcomputers don't do 
thet kind of thing- The computer will do something 
(meybe something ridiculous such es "helt end cetch 
fire") with eny dete Its program counter Is pointed 
et. This cen ceuse e feulty program to go out of 
control In unpredictable ways. There Is no way for 
the microprocessor to know thet It shouldn't write 
Into some port of memory. If you went you con write 
your name all over the Bas1c09 Interpreter. The 
results of thot kind of thing ere dlsostrous, 
pert I cut or 1y If you ere shoring the Interpreter with 
someone* You Just heve to make very sure programs 
you write never try to execute, or write Into 
eny thing they shouldn't. Of course thot Is Just 
good programming. The new board from GIM1X wes 
designed to work with OS-9. It Is el leged to 
support protected storege end to prevent Invalid 
operetlons from being presented to the 
microprocessor* This should prevent ony program from 
Interfering with eny other program, even, In many 
cases. Itself. For those of you who try to support 
several users, If you use the new G1MIX 
herd/softwere no user should be able to ceuse the 
system, or enother user's program to fell. Even 
people like me who don't shore time with enyone con 
geln o lot from this kind of sefety net* Sometimes 
when I em debugging e program everything Just comes 
to a stop end I heve to re-boot In order to 
continue. It Is even worse when there Is e long 
peuse then the disk storts seeking* I heven't hod 
eny dote destroyed thot wey yet, but I worry. This 
new hordwere should give everyone who con of ford It 
o lot of peece of mind. GIMIX hos el so been oble to 
remove every troce of the operetlng system from eoch 
tesk's eddress spece* Programs cen be run with up 
to 64K. The board end eccompenylng softwere hove 
lots of other feetures, but the other one thot 
excites me o lot Is the niBn^ ry-t c * i mn i o ry DMA. A lot 
of time Is spent moving dote from one eddress spece 
to enother In OS-9 Level Two* This Involves severe I 
operetlons for eoch byte end slows 1/0 operetlons 
end other Inter-tosk communl cot Ions down quite e 
lot. The sped el hordwere on this new CPU board can 
move blocks of dete et 2 cycles per byte. At two 
meg eh or tz thot comes to one million bytes per 
second- I under stond thet, ell things token 
together, the new system runs OS-9 substentlef ly 
foster then whot I heve now- I wont to find out for 
myself- If you see en edvertf sement from me In the 
classified section you will know I broke down end 
got o new, fester, better 6809 computer - 

One of the nicest feetures of OS-9 (both 
levels) Is the relet I ve eese with which It con be 
edepted to new hordwere- For example, there Is a 
module Included with the operetlng system colled 
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ACIA which Is responsible for Interfacing the rest 
of the system with ACIAs (Asynchronous 
Communications Interface Controllers, or serial 
ports). There Is another module called PIA which 
does a similar Job for pareMe! ports, and another 
module which deals with whatever type of disk 
controller you have - more modules If you have more 
than one type of disk controller- If you feel the 
need you can add more Device Or I vers (the name of 
this type of module) any time you like- If you want 
to write your own driver, It Is good to have an 
example to work from. The source for ACIA and PIA 
(available from Mlcroware) are both good starting 
places though I found ACIA more useful - 

There Is a rather odd sort of device which Is 
available with most operating systems, but not OS-9. 
I have seen It called DUMMY and NULL. This device 
makes anything written to It disappear, end returns 
at! endffle If It Is read from. It Is surprising how 
often It Is nice to have any easy way to throw data 
away. 

The Null Device Driver that I am going to 
present here Is a SCF (Sequential Character File) 
type device. The requirements for this kind of 
driver are given In the OS-9 System Programmer's 
Manual, but In general there are six entry points: 
Initialize device, reed, write, get device status, 
set device status, and terminate the device. This 
driver Is so simple that of those six, five Just 
clear the carry bit end return. Reed Is the only 
operation requiring more then two lines of code. 
Read Is supposed to return with the character read 
In accumulator A. If an error takes place, the 
carry bit should be turned on, end the error code 
placed In accumulator B. We want to return 
end-of-flle, which Is an error, and I have found 
that Is a good Idea to return null (Chr(0)> as the 
character read even If It Is end-of-flle* I return 
the end-of-flle from the driver though It Is usually 
generated by the SCF f He manager. If you want to 
modify the program such that the file manager Is the 
module that generates the end-of-flle, load 
accumulator A with the end-file character which can 
be found In the path descriptor (pointed to by Y) 
end return with carry clear* 

A Device Driver may be used for several devices 
provided that they use the same hardware. Each 
Individual device Is described by a "Device 
Descriptor" which Includes everything unique to a 
particular device such as the address of the device. 
The NL device descriptor Is at the bottom of the 
program. It will be loaded Into memory at the some 
time as the Driver although It will show up as a 
separate module In the module directory. 



Would assemble MyProg In background and make all 
Its (non-error 

path) output disappear. 

Note: Be careful when using /NL for Input. Soto 
programs (such as 

debug) don't respond to <End of File? - these 
programs will 

act very oddly If /NL Is used as the Input 
device for them. 
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Documentation for Null Device Descriptor 

Summary; If the file Null Is loaded and the module 
NL Is linked 

a new device called /NL will b*>came 
available for Input 
and output. 
0S9 Load Null 
0S9 Link NL 

The device NL will accept Input In any 
quantity and simply 

make It disappear. If a read Is directed at 
It, It wll I 

reply <end of flle>. Other then eating date 
without a 

sign It acts like a perfectly normal SCF type 
device* « • 

a very fast and efficient one! 

Example: 

0S9: asm MyProg o 48k >/nl & 
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OFTULT - A disk berfcap systm 

If you have ever tried to backup a Winchester to a 
smef fer dl sk. or even an eight Inch to 5 Inch disk, you 
know what trie word work means- Here Is the -Typical 
procedure; 

1. First you use the FLEX* % OOPT command to tell the 
system from where to where (drive ? to drive 7). By not 
calll ng by file nam*, the copy cenmand will copy all fifes 
from source to destination disk. So far so good. Then 
the fan gets struck. You fill up the destination disk 
and the system stops and Informs you that the disk Is 
"OUT OF ALL AVAILABLE DISK SPACE." So you put another 
clean disk In the destination disk drive and start again 
but wait**. It starts all over again, at the beginning of 
the source* No good, already he>^ those fifes on The 
disk we Just filled up* So... the fun(7> begins* 

2. Now you must, If vou went to get down beyond the 
last file copied over completely, start the time amsming 
task of deleting all the copied files from the source 
disk* Sound like fun7 Well, If your Winchester Is as full 
as some of ours are. you could well have over 3,000 file 
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names to delete, even on on eight Inch disk you con have 
welt over 200 f Tfo nomes to contend with- Not o hoppy 
prospect. 

3 . Now comes COPYItl/r the hassle free lorge to smoll 
downlood progrom for FLEX^ (UniFLEX soon). You first 
run o directory of the source disk ond determine obout 
how mony sectors you will be copying from one to the 
other. Next you »NEWDISK r o sufficient number of 
destlnotion disk to hold oM the files* Now you s1»hf cell 
the COPYNOLT commend. Just like FLEX COPY command, 
example: 

+K C0PYMULT,2,1 

Thots oil there Is to It. 

COPYWOLT keeps up with oi l files copied. As you neor 
the end of disk space, CHTH1.T figures If the next file 
co be corrled over In one piece- If not It stops, rings 
the bell, and Informs you the next flies requires x- 
number of sectors and only X-number are available on the 
destination disk. You many (A)bort - or (C)ontlnue. If 
you continue you are directed to place the next clean 
disk In the drive and hit a key. And the process 
continues, no delete fng, no k»^>Ing up with anything* 
Just go about your normaf duties and wait for the bell to 
ring. HMAT COULD BE SUTLER? 

COPYWJLT even has a special program that takes all 
the risk out of copying fries that are larger than the 
destination disk (I.e. data files, etc-)- 

Also Included in the package Is a program to relink 
the free chain on any disk. File access Is greatly 
speeded up- This program FREELIIft -Of) Is Included, at 
no extra charge - 

As If ell that Is not the best bargain to ever come 
down the pike, since sliced bread, you get, art no extra 
charge, the source, well commenteaV 

For those who have long fought this problem and do 
not desire to pop for the cost of other expensive 
backup systems, the price of ONLY $99*95* for the 
entire package Is one sweet deal. 

dFTHi^T can be ordered from the following source: 



DATA-COMP 

POB 794 

HIXSON, TN 37343 

(615) 842-4601 



systems, SWTPC-, GIMtX" 



0S9-toFLEX- 



P.S. It works on all FLEX- 
HELIX-, etc. 

O-F * A PROGRAM TO 
I FLEX. 

As has been the case with other disk operating 
systems, the Inability to transfer flies from one to 
another, due to media differences, has plagued the 
microcomputer community, from day one- There are 
several excellent transfer programs available to the 
Standard S50 Bus user (Lucldete*s COPYCAT, etc) as an 
example. However, the growing ranks of 0S9 users has 
shown that media Transfer programs are not Just nice, 
they are vftaJ. 

0-F Is a program that runs under 0S9, In BASIC09, 
and from a menu performs the following functions: 

1. DIR - this selection allows 0S9 to run a directory 
of the disk, with all essential Information. 

2. Write a 0S9 format file to the disk, to be read by a 
FLEX system. 

3. Read a FLEX file on the disk and COPY or LIST to 
another 0S9 device. 

4. Format a 'soecfaV disk that can be written to and 
read from by both 0S9 and FLEX. This special disk Is the 
■go-between* disk that Is used by both systems. 

Also a special binary program Is Included to allow the 
transfer of binary fifes, with all the differences In 
system requirements accomplished- 

FLEX users may use the special disk like any other 
FLEX disk, with one exception. The special disk while 
being used by FLEX must not allow the 'Directory* to 
overflow beyond track zero Itoo many flies). Other than 
this one restriction, there Is no difference between any 
other FLEX disk, as concerns the operator. However, If 
the disk Is viewed, track by track. It will be found to be 
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missing a sector on each track- This Is the 'special' 
format and causes no problems, as long as the one 
restriction listed above. Is complied with. 

For 0S9 users the disk Is more 'special' and some 
normal 0S9 functions will Invoke errors- The special disk 
should be used, by 0S9 operators, as a transfer and 
program disk only- The 'special 1 disk must be formatted 
under 0S9 using the BASIC09 programs furnished. 

0-F Is furnished on 5 or 8 Inch diskettes. In SOURCE. 
The current price, In 0$9 format Is $79.95. 
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HI SPEED TRIG AND MATH FUNCTIONS 
USING POLYNOMIALS & THE CORDIC TECHNIQUE 

by Matt Scudlere 
100 Cedar Ln- 
Oak Ridge, Tenn 37830 

Editor's Note: All occurences of the 'up arrow' are 
Indicated by the symbol *f. 

POLYNOMIALS 

It seems that In any system with floating point 
capability the need for powers, logarithms, ana trig 
functions arise quite frequently- Calculating these 
functions can oat to be a very time consuming occupation 
for the processor to say the least If the program under 
execution requires a lot of these function calls- The 
most common method used by many systems Is to use a 
fitted polynomial to the desired function. Calculating 
polynomials Is very straight forward and Is easily 
encoded. One simply supples the desired coefficients 

The calculation for a 
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for the required funcTlon 
polynomial: 

PCZ) * A0 ♦ A1»Z + A2» t2 + A3»Zt3 + 
can be broken down to: 

PCZ) = A0 + Z»<A1 + Z»(A2 + Z*(A3 4 . . . Z*(AN) ..-))) 
wh Ich reduces the number of multiplies and which can be 
encoded as: 

P-AN 

FOR l=N-1 TO STEP -1 

P=P»Z+A(I) 

NEXT I 

REM P = desired polynomial on exit. 
This Is a very efficient method since there are N 
multiplications and additions* In addition truncations 
errors are minimized. If one were to encode the first 
equation directly there would be (N+1)*N/2 multiplications 
and In many systems truncation errors couln limit the 
number of terms to somewhere In the vicinity of six or 
seven depending on the range of the particular numbers 
Involved- However, the number of terms needed are 
determined by the accuracy required In the polynomial 
approximation, the desired function, and the range of 
the function Involved. POLYNOMIAL FITS ARE ONLY AN 
APPROXIMATION TO AMY FUNCTION THAT IS NOT ITSELF A 
POLYNOMIAL! To represent any nonpolynomlal exactly would 
require an Infinite number of terms. In the case of 
finite precision arithmetics In any computer the number 
of terms to "exactly" fit a function to the full precision 
Is finite but can become very large. The exact number of 
terms depends on both the function being represented 
and the precision of the arithmetic being Incorporated. 
One anomaly that occurs with polynomial fits that stop 
short of the precision being used Is thet the fitted 

Polynomial oscillates ebout the function up to N times- 
f one Is takl ng small differences of large numbers this 
oscillation distorts the enswer to a greater extent 
than the original error. Usually this Is not a problem 
but should be remembered If accurate small differences 
are needed- Coefficients for various functions with 
their respective errors can be found In many math table 
handbooks* Some of these least squares coefficients 
are listed In table I at the end of this article. So much 
for polynomials. 
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THE OORDIC TECHNigUE 

While polynomials are very easy to encode there exists 
another simple elegant algorithm based upon the CORDIC 
technique developed by Voider. The basic algorithm was 
first described by Henry Brlggs In 1624 In Arithmetics 
Logarlthmlca- This ftlgprltnm which appears to be 
relatively unknown Is easily Implemented on ar»y computer 
where one has access to "bit fiddling". Without the bit 
fiddling capabllMy this algorithm does not offer much 
Improvement In speed over the polynomial method. 
However, by acoesslng the exponent ana mantissa of the 
floating point number separately one can eliminate most 
all of the floating point multiplications and divisions for 
several of the trigonometric functions and the LOG 
function. The exceptions to this statement are that 
several of the functions do require a square root 
calculation which normally requires M multiplications 
where M Is the number of bits In the mantissa. With 
this one minor drawback we will proceed with the basis of 
the algorithm and what makes It so efficient, 

THEORY BEHIND THE OORDIC TECHNIQUE 

Assume that we want to calculate the TANgent of a 
given angle Z. We can break Z Into two parts where Z = 
A + B. Then 



TAMA4B) 



SINCA4B) SINCA)COS(B) t COS(A)SINCB) 

m ■ —-.--. 

C0SCA4B) COSCA)COS(B) - SIN(A)SINCB) 



<U 



Dividing the numerator and denominator by COS(A) we get 



SIN(B) + TAN(A)COSfB) 
TAN(A^fi) • 

COS(B> - TANCA)SIN(B) 



(2) 



Now, since we know the SIN(O) - and 00S(0) * 1 we can 
compute the tangent of any angle given a small lookup 
tabfe of tangents. For example If our tableware to 

consist of the tangents of 1, #1, .01 000001, and 

the tangent of .103 Is required, then we can repeated h/ 
apply tnla last equation computing the result as 
TAN(f{(0+.m.01)+.01)V.01). A+ fIrs+ glance it looks like 
the sin and cos of the angles also needed to be 
calculated but since we can introduce an arbitrary 
multiplier C, which will cancel we will make the following 
definitions: 

X-C*$IN(B) & Y-C*O0S(B>. 



Then 



TAN(A*B) 



X + r*TAN(A) SIN(A<B)«C0S(A) 

a _ „ ■ 

Y - X # TAN(A) C0S(A*e)«COS(A> 



<3) 



By Inspection we see that X Is proportional to SIN(A«*B) 
and Y Is proportional to COScA+0) . The arbitrary 
multiplier C we see Is determined from Inspection to be 

C - C0S(A). 

Therefore X and Y can ba update each time by 



X - XCold) + Y(o1d)*TAN(A) I 
Y • Y(old) - X(o1d)*TAN(A), 



NOW HERE CC*CS THE KEY TO THE WHOLE PROCESS! If one 
Is clever he will choose his table of tangents such that 
the angles represented for the summing will produce 
TANgents thef are binary powers of two, so that the 
multiplications In equations (4) can be represented by 
arithmetic shifts If one Is working In fixed point 
arithmetic or by subtracting a number from the exponent 
In a binary representation of the floating point number. 
The time ft takes to do this operation Is more than two 
orders of magnitude smeller than the time to perform the 
f.p. multiply. This process will work for any radix. It 
does not have to be base 2 but the efficiency Is slightly 
higher for this than for s»y base 10 If one were using 
BCD. This radix must match the radix used In the f.p. 
representation being used* The table now will consist of 
an array ATAN(l) which stores only the angles since the 
tangent was plefced to be 2t(-l). If one stores ATANO) In 
terms of radians then the algorithm will produce results 
for angles In radians. However, for the trigonometric 
functions there Is nothing sacred about these units for 
this algorithm. If one stored the angles. In units of 
degrees. 256-ths of a circle, greds, etc. then the 
result will reflect the same units. The only caution here 
Is that to compute the hyperbolic, exponential, and 
logrlthmlc functions, we do need the table In terms of 
radians If no conversions are wanted. The complete 
algorithm follows: 
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BEGIN /• find the SIN, COS. or TAN of angle A > V 
/• Initialize varlabbs V 
X-0.0; 
Y-t.0; 
J-0: 
REPEAT 

A > A - ATAN( -J); /• get ATAN from table ATAN(J) V 
IF A >- 0.0 THEN 

Xnew - Xold + (Yold * -J); /• shift op here V 
Ynew - Yold - (Xold • t-J); " 

ELSE 

A - A t ATAM2t-J); 
J - >1; 
UNTIL J > MAX; /* MAX Is the number of bits of 
precision V 
SINCA) • X / SQRTOCt2+Yt2>; 
C0S(A) - Y / $QRTCXt2+YT2); > pick which 
TAN(A) • X/Y; 
END; 

One will see that In the case of the TAN there Is only one 
divide and In the case of SIN & COS there is also a SORT. 
If one normalizes his arguement to the range of to 
Pl/2 then the maximum number of times through the loop 
Is MAX+2. Again note that there are no floating point 
multiplications or divisions within the loop. 

One can follow the same process for the hyperbolic 
functions and obtain the following algorithm: 

BEGIN /• find the SIWH COSH, or TANH of angle A V 

/• Interval should be restricted to - B since 

TANHO+)--?.0 V 

/• Initialize variables V 

X-0.0; 

Y-1 .0- 

J«1; h note: start at I for hyperbolic functions V 

REPEAT 

A • A - ATANH( t-J); /♦ get ATANH from table ATANH(J) 

IF A >- 0.0 THEN 

Xnew - Xold+ (Yold *2t-J); /• shift op here V 
Ynew - Yold + (Xold « -J); " /• note "» w here V 
ELSE 

A - A t ATANH( -J); 
J * Jtl; 
UNTIL J > MAX; /• MAX Is the number of bits of 
precision V 
SINHCA) • X / SQRT(Xt2-Yt2); /• note: subtraction V 
C0SH(A) - Y / $QRTCXt2-Yt2>; 
TAHH(A) - X/Y; 
END; 

Now most people really don't care about hyperbolic 
functions but you probably are Interested In EXP(A). 
This can be calculated easily by 

EXP(A) - SINH(A) t ioskA) * 

EXPC-A)- C0SH(A) - SINHCA). 

Or In terms of X & Y above 



EXP(A) - 
EXP(-A)- 



<Y+X)/S0RT(Yt2-Xr ) I 
<Y-X)/S0RT(Yt -Xt ). 



(5) 



The INVERSE functions can also be easily calculated In 
the same manner by simply reversing the process above. 

BEGIN /• CAI.C ARCTAN, ARCSIN. or ARCC0S of value X > V 
/♦ Initialize variables V 
Y - 1.0; 
Z » 0.0; 
J - 1 
REPEAT 

X - X - Y *<2t-J); 
IF X >- 0.0 THEN 

Y • Y t ( X*2t-J >; /• SHIFT OPERATION HERE V 
Z - Z + ATAN( -J); /• seme table as before V 
ELSE 

X • X + Y*( -J); 
J • >lj 
UNTIL J > MAX /• MAX • § bits of precision V 
/• Z NOW EQUALS ATAMX) V 
ASIN(X) - l / $QRTU.CHZt2>; > pick which 
AC0S(X) - S0RTC1.O-ZT2) / Z; 

/* If arg of acos upon entry Is negative then add PI to 
result of A00S V 
END. 

Similarly the Inverse hyperbolic functions have the 
following algorithm: 



EG1N /• CAJ.C ARCTANH of value X < <- 
/* Initialize variables V 
Y n 1.0; 



X < I ) V 
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z - 0.0* 

J » 1; A note; tnlt to 1 for hyperbolic V 

REPEAT 

X * X - Y # (2t-J); /• same table as before for Hyp V 
IF X >= 0.0 THEN 

Y - Y - ( X # 2t-J h /♦ SHIFT OPERATION HERE V 
Z - A + ATANH(2t-jSj 
ELSE 

X * X + Y # <2t-J); 
J » J+1; 
UNTIL J > MAX /• MAX - bits of precision V 
/• Z NOW EQUALS ATANH(X) V 
ENO. 

Again you say "Pool who needs the Inverse Hyperbolic 
functions?" Well, I'll bet you can use the '.06 function. 
It can be calculated from the Identllv: 



L0Ge(X)=2*ARCTANHI <X)-1) / (X+1) ) 



(6) 



And for what It's worth the other Inverse hyperbolic 
functions can be eomputed from the Identities: 

ARCSINH(X) = LOGel X / SQRTl Xt2 + 1 ) L & 
ARCOOSH(X) = LOGel X / SQftTt Xt2 - 1 ) f. <7) 



SO FAR SO G000I 
WHAT ABOUT NORMALIZING? 

The biggest headache when It comes to using any 
algorithm for these functions Is that the algorithm Is 
defined or works most efficiently on ty over a certain 
limited region. The trigonometric functions are easily 
scaled by symmetry to an Interval to PI/2 by 
successively subtracting (or adding) values of 2^1, PI, i 
PI/2. The only thing to watch out for is to remember 
the correct sign and range for the result. 

In the case of the hyperbollcs, exponential, and 
logarithm functions the scaling process Is a lot less 
obvious. By uslnq some Identities and noting the method 
of storing floating point numbers the process can be 
reduced to a extremely quick computational scheme. 
Let's look at the logarithm scaling first. The Identity 

LOGel M * 21U ) ■ LOGelM) + N"LOGe(2) 

shows us how this can be done. HereM Is the mantissa 
of the number which Is scaled to fall between I and 2 In 
the IEEE floating point format* Just right for our 
calculation using eq (5) above. The f.p. exponent 
stored tn the number Is H which has a 127 offset (bias) 
In the IEEE format. Therefore the scaling algorithm 
would be: 

BEGIN /• scale X for call to LOG V 
separate X Into M&N where M Is the mantissa and N Is 

L0G(M) = 2 # ARCTANH I ( M- 1 > / <M+1) I; 

L0G(X) « L0G(M) + (N-bfas) * 0.693147181; 
/* bias Is the bias used In representing the f.p. 
exponent V 
END. 

Next, to scale the exponent we can use the Identity 

EXPI N«L0Ge(2> + R 1 ■ 2TW ♦ EXP(R), 

where N & R (the remainder) ore calculated by: 



N « INT( X / L0Ge(2) ): & 
R»X - N * L0Ge(2); 



(B) 



The reason for picking a radix of 2 Is that the *21N 
operation can be performed by simply adding N to the 
exponent of the floating point representation. The 
algorithm then becomes 

BEGIN /* calc EXP(X) where X may be large V 

N « INT(X # I. 44269504); /• note: this needs to be 
truncation V 

R « X - N; /♦ the remainder <- R <- L0Ge(2> V 

Y « EXP(R); /* use normal algorithm V 

EXP(N) - Y # 21N; 
/• this last op is adding N to the f.p. exponent of Y V 

HERPS THE TRICK 

THE KEY TO THE EFFICIENCY OF THE 00RD|C TECHNIOut AND 
EXPONENTIAL SCALING IS BC1NG ABLE TO MULTIPLY NUWERS 
BY Ztfi WITHOUT DOING A FLOATING POINT MULTIPLY1! This Is 
where the *%It fiddling" comes In. One needs to be able 
to split the floating point number Into the normalised 
mantissa and the Integer exponent (with or without the 
blast) With these two numbers In hand one simply does 
an 8 bit Integer add of N to the f.p. exponent to 
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multiply the f.p. number by 2tN and recombJnes the 
exponent with the normalized mantissa. If one Is 
encoding this process In assent) V then this Is trlvlal- 
1f. however, one Is encoding this technique In a higher 
level language then one must be able to split the f.p. 
number wtthout time wasting arithmetic operations or at 
least be able to call an assembly language routine that 
does this- The splitting of the number can usually be 
accomplished in the higher level languages by 
equlvalenclng an Integer wfth a real number. One then 
accesses the exponent by masking the Integer form of 
the number and shifting the appropriate number of 
spaces- THIS OPERATION 15 DEPENDENT ON THE FORM OF THE 
FLOATING POINT NUMBER AND NEEDS TO BE TAIL0RE0 
ACCORDINGLY 111 



A WORO ABOUT THE SORT FUNCTION 

Normally a SORT function requires M-1 floating point 
multiplies where M Is the number of bits In the mantissa* 
Since the numbers are nor allied the first bit In the 
resultant mantissa Is always a 1 and the remaining M-1 
bits are determined by trial and error* Each bit In the 
trial Is set In turn and the trial Is squared and 
compared to the arguement. If the result Is too large 
then the bit Is reset. The process then continues 
with the next bit. There are some things that one can 
do to Improve the situation though If one Is willing to 
get down into the assembly code. For example: The f.p. 
exponent of the result Is always the unbiased f#p» 
exponent of the arguement divided by two (8-bit ASR). If 
the arguement's exponent was odd (carry set) then Its 
mantissa will need to be renormellzed only If the 
mantissas are to be worked on directly. Next since we 
are only concerned about a 3 byte mantissa the full 
floating point operation does not need to be carried out 
on each Iteration of the next bit. If one allows for the 
deletion of one or two possible cerrys Into the least 
significant bit then only 60 8*8 bit multiplies are 
necessary to calculate the square root of the number. 
The purist may want to Include The possibility of the two 
carrys In which case there are twenty more 8*8 bit 
multiplies. For comparison a full floating point multiply 
Implementation of the square root would require 216 B*8 
but multiplies plus all of the overhead of the f.p. 
normalization. In any case the process can be trimmed 
to approximately one half to one fourth of the usual time 
If one Is willing to put forth the effort. This would 
then make the CORDIC technlq e comparable In execution 
speed to the polynomial for all of the functions requiring 
tne square root function. However, If precision to 
better than ? part In 1019 Is desired then the polynomial 
timings would Increase sllghtry faster than the optomlzed 
SQRT/COROIC technlquet The question that remains Is 
"Is It worth Itr 

WHICH TECHNIQUE DO 1 USE? 

First of all If you don't care about speed then use the 
polynomials for all your functions because they are so 



easy to encode. On the other hand If speed Is of some 
Importance then the Cordlc technique will significantly 
Improve the execution speed of some of these functions. 



The SORT function Is the onfy thorn In side of the CORDIC 
technique. It Is used In the SIN. COS. ARCSIN, ARCOOS, 
SINH, 00SH, ARCSINH, ARCC0SH and EXP. In these cases It 
Is more efficient to use the polynomials. Those 
functions that do not need It are the TAN, ARCTAN, TANH, 
ARCTANH, and LOG. These are the functions that can 
realize a significant speed increase over the 
polynomials * 

As e side note, on the 6809 one can easily deter Ine 
whether or not the multiply Instruction Is being used for 
a numeric multiply, if It Is then the multiply time will be 
on the order of a third of the divide time* If the 
rotate and shift Is used then the multiply time will be 
Just under the divide time. 



ICLEMfS FOR S9C GD»CN FWCTI0*S 



U*ST 90UA*£S C0€FF_ 

P(X) ■ SUM ( AM • XtN ) 

An coal flcl ant* not listed are tre 



function 

St"" 

2 

A? 
M 
A6 
A3 

A10 
AI2 



0/X> # $1M(X) 

o<-x<-4»r/j 

2 # 10t-9 (?9btt»J 



— . * 6666 6666* 
.00633 333*3 

-.00019 84090 
.00000 27962 

-,00000 00239 



C0S(X> 
0<-X<«fM/2 

2 # 10t-9 (290(11) 



-.49999 99963 

.04166 66416 
.00136 66397 
.00002 47609 
.00000 02609 



<i/x> # TAmx> 

0<*X<-P1/4 
? # 10t-6 (296lt»> 

1 

.33333 14036 
.13339 23993 

.06337 40603 
.02446 30693 
.00290 03230 
.00931 68091 
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fgnCt ton 


.;» '*> I 


&^*«»i06*t?i 


C»/X) # AftCTAKCX> 


arg rang* 


IH-X<>1 


0<«*«t 


•rror 


3»iot-8 (29eit»» 


2*101-10 02MU1 2'10f-ft i29olt»> 


At" 


,99999 W3N 


SMAA OOOOt 


A" 1 


*: 


-.4*937 4*236 


.49999 99206 


A7 -.33333 *4928 


Ay 


.33179 90?9* 


.16666 93019 
.04169 73479 


M .19993 33083 
A6 -.14206 09944 


M 


-.74073 380*4 


a 


.1676^ 4071 1 


.00630 13996 


AS .10696 26393 


m 


-*0993? 9W97 


.00137 98870 


AI0 -.07928 96400 
A12 .04290 961 36 


A7 


.03608 049)7 


.00014 1316) 


AB 


-.00649 3944? 




A14 -.0*616 37367 
A16 .00786 67737 



COROIC TABLE 0€riNlT>0N 
*>• tafti* ot 1*v*^»* T*no* nf « a»d Lnw»r*a ftprboUe 
tanoantft tan iMhir b* calcwlatad th* tint t Iw a 
function 1i ca1T*d or, «or* n*flcF«ntfy p e*icutat«d one* 
and «tc*d •wpiicltV In th* ro»«ln«*. Th* *lr»t #lgfi+ 
t*rai «■*• 1l*t*d In tab* II. Th* r**t of th* +*n»t can 
ba Qanaratad «)th -me flr*t coupl* o< ta« o< the 

foHo«l>»9 **H** : 

if XT3 Kt9 Xt7 
AFJCTnAW) • •«•••#•—•—♦... <x><1 
13 3 7 

X Kf3 X19 Xt7 

AHCTAHM(X) ■ - ♦ ♦ — ♦ ■ — ♦ , . . <X)<1 

13 9 7 

not*? 

*rct*n<x> - 9rctinK(x) ■ 2t-l to 2*f bit* 
pracliion & , a . 

«rr»«n<jt> ■ 21-1 • CI - 1/3 ■ 2t-2l> to 4*1 bit*, 

ardanh<*> « 21-1 • <l • 1/3 • 2T-?I> to 4 # l 6lt* r 
•te. 

fly •Kamtnfng the aartat «» *a* that th»y trt both 
r*»fd»y co***»*-tfi«Q and fh»t Hx* 74 t>1»» O* p^»rl%tew and 
«o«- i > 1/ th «t fh« arc function* w bo*A Tw«t 2t-l. 
Th«r*for* thn arrant ar« <■*•*••♦•<) by c*W*ifl our 2»-i 
function ooartting on 1 .0 tor a*r ««!««** of ( a****** )2 
and 7'* r or I t»+»a*n 6 and lJ ■• C*n l***,** J*** •*• 
t\r%f t*r* In th* **rl*s and atln "m 74 tit ara«i4lon. 
I iclulma th* third fmrm «ould g[«s a iw*cltEan of 6*1 
bit*, *h» fourth tiri wouM vivid ft # l bit* ate - 
Thar#*Orn vm cmn pr#dn+»r«lnp th* nuah«r of tara* 
raqvlrad In th* tar'** give* th* d**tr*d pr*ci*lr>n. 

TABLE M WOlAf* AKCTANGCWT TABLE FOR COHOlC TCO*lt0tC 
I 21-1 A*JCTAA<2t-ll A*XTAMH<2t-l> 






1 


0.789 59 81631 




1n1 (not vs*d> 




1 


.9 


0. 46364 76090 
0.24497 86631 




0.34930 6144 




7 


.29 




0.29341 2812 




3 


.129 


0.12433 49943 




0.T2969 721* 




4 


.0629 


0.06241 8810 




0.06298 19713 




3 


.03129 


3.12396 3343 E 


.2 


3.12601 789 E- 


•2 


6 


.019629 


1-96237 2867 t 


? 


1.96262 7183 E- 
7.81769 870 €- 


■2 


7 


7.6129E-3 


7.81234 1060 E 


-3 


■2 


8 


3.90629E-3 


3.90623 0\ E-3 


3.90626 966 f- 


3 


9... 


*•* dlftCUlft 


to*. 









THE (X»**LFTT CLISTI« 

t^*" t horn* *ho *r *_ln t*rait*c a co*ptat* *ncodl*a o< 
th*** function* in IMT^OL C It avaltabbi on *l«har OSO or 
^ttw for*att*d di«» Uo«cl^ «nlch> and can fea ootai»*d 
«0^ 1'9 copr and dl*fc chargw ih- dlth or S20 V* di *» 1 
*rtm ■* at tna aeov* add^*i%* That* #anct lon« a* 
**cod*d a*»o contain a f*« **tra v*f-(a1lon* In tome o* 
th* tuner Ion* to l*cr»*»* pr*e*tion U e*rt a 4n ran^ai 
• s:ie r*d«*clna eo«pi*t«t lon«d tiapit »♦>• «na«*»* dv a 
tightly 4«roar runtfa* paefcao*. 

END. 

EXPERIMENTING 
WITH FLEX 



Experimenting with Flex 
by Peter A. Stark 

\( recently needed to quickly copy a sector of 
dote from one disk to another. Rather than write a 
complex program, I decided to do It directly from 
the terminal- It makes a good experiment, as It 
mII I give you a better feeling for what goes on In 
your system. 1 will describe how It works on a 6805 
system with Flex 9; adapting to other versions of 
Flex Is trivial. 

Let's suppose you want to read a single sector 
from the disk Into memory. First boot your Flex 
system, and return to the monitor. Enter the 
following program directly Into memory using your 
mon I tor : 



at location 2000 Is the FMS function 
tells Flex what we want to do. An 09 
while an 0A would mean "write 



1000 BE 2000 
1003 BO 0406 
1006 3F 



LOX /S2000 
JSR FMS 
SWI 



Point to FC8 
Go to Flex FMS 
Return to monitor 



(This Is written for 6809 Flex 9.0; for the 6800, 
use CE 2000 for the LOX Instruction, and use B406 
Instead of 0406* For Mini Flex, use 7806 Instead of 
0406.) 

This program points to an FCB or File Control 
Block, which Is used to tell Flex what you want to 
do and give It an eree of memory to do It In, and 
then Jumps to the FMS or File Management System 
entry point, so that FJex will execute the required 
function. After the function Is completed, an SWI 
Instruction returns to the monitor so we can examine 
what happened. (Note: the SWI is the same as a 
monitor breakpoint, and with some monitors It may be 
necessary to Insert a breakpoint rather than put In 
a 3F Instruction. Note also that Flex 2.0 erases 
the SWI pointer In memory, so that executing a 
breakpoint does not return to the monitor as you"d 
expect. To restore this pointer, do a Jump to SE000, 
the starting point of the 6800 monitor.) 

The above three-step program sets up the entry 
point Into Flex, but before we can execute It we 
have to provide en FCB at address 2000. Do this by 
entering the following data: 
2000 09 
2003 00 
201E 01 
201F 02 

The 09 
code, and It 
means "reed a sector", 
a sector." 

The 00 at location 2003 Is the drive number. 
In this case we specified drive 0, but could also 
have entered 01, 02, or 03, depending on the number 
of drives on our system. 

The two bytes at 201 E and 201 F specify the 
track and sector we want. In this case, I 
arbitrarily specified track I, sector 2. 

Now that everything Is set up, place a spare 
Flex disk Into drive (just In case something goes 
wrong, we don't want to clobber your best disk) and 
Jump to location 1000. 

The motor will now start, and after a munent's 
delay the program will return to the monitor and 
give a register dump. 

At the left of the displayed register dump Is 
the contents of the condition code register. If It 
Is displayed as a row of six or eight bits, the 
third bit from the right Is the Z or Zero flag. If 
the sector was read correctly, this bit will be a 1. 
If It Is a 0, then an error occurred. (If the 
condition code Is displayed by your monitor as a 
two-digit hex number, then the second digit should 
be 4 through 7, or C through F, If no error 
occurred. ) 

Once the sector has been read, the 256 bytes fn 
that sector will start at location 2040 In memory, 
end you may use your monitor to examine them. 
(MlnlFlex will have only 128 bytes starting at 
2040). 

If you now experiment a bit, you will find that 
In Flex 2.0, you elways get an error on reading 
sector 1 of track 0. That Is because there Is no 
sector 1 - the ten sectors on track ere numbered 
0, 2, 3, 4, and so on, through 0A. In the same way, 
In MlnlFlex you will always get an error when you 
try to read sector 2 of track 0. That's because 
MlnlFlex numbers the sectors of track as 0, 1, 3, 
4, ... up to 0A. 

On the other hand, all the other tracks have a 
sector 1, but leek sector 0. In other words , each 
track has 10 sectors, but they are numbered 
differently on track from all other tracks- This 
Is a peculiarity of 6800 Flex; In 6809 Flex all the 
tracks (Including track 0) start with sector 1. 

The reason has to do with the way the system Is 
booted. The first SW1P disk system came with a disk 
operating system called MDOS. In order to start 
MD0S, a 'boot 1 or 'bootstrap 1 program was written 
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which would road the beginning of the disk (starting 
at track 0, sector 01 Into memory, and then jump to 
the program Just read In. This boot program was 
then put Into the SWTBUG monitor. 

When Ml n IF lex and Flex 2.0 were developed, the 
same SWTBUG boot program had to be used to load Flex 
as well. But flex was too big to be loaded 
directly, so the boot was used to load a second boot 
program, sometimes eel led the 'superboot 1 from the 
disk. Once the superboot was loaded, the computer 
would Jump to It. Now the superboot would load the 
rest of Flex from the disk. (The 6B00 superboot 
loads In locations 2400 through 24FF ... thereby 
clobbering anything else that may be In those 
locations. Perhaps you'd noticed that.) 

But the superboot program only required 256 
bytes of memory, and so the problem came of how to 
stop further Input once the superboot was In. The 
solution was simple - skip a sector so that the 1771 
disk controller would quit on an error. Since 
MfnIFlex had only 12B bytes per sector, It had 
sectors and I and then sector 2 was missing; since 
Flex 2.0 used 256 bytes per sector, It had sector 
and sector I was missing. (6B09 Flex has a 
different boot program, and so Its track Is 
numbered the same as a! I other tracks, starting with 
sector I and having no missing sectors.) 

If you want to examine the disk a bit more, 
look at sector 3 of track 0. This Is ca I led the 
System Information Record or SIR, and holds quite a 
bit of Information about the disk. As you examine 
memory, you will find the following: 

Location 2050 - the disk name 

205B - disk number 

205D - the first sector in the free chain. This 
Is the next sector that will be used If you write a 
new file to the disk. 

205F - the fast sector In the free chain. More on 
the word 'chain' In a moment. 

2061 - the number of free sectors 

2063 - date of disk creation - month 

2064 - day 

2065 - year 

2066 - last track and sector on the disk. 

(M In IF lex does not have a disk name or number, and 
the SIR Is arranged a bit differently.) 

After the SIR sector. Flex 2.0 and Flex09 leave 
sector 4 empty, and the directory starts In sector 5 
(Mi n IF lex's directory starts In sector 4.) As you 
can see, there Is a lot of empty space at the 
beginning of a disk, and an ambitious programmer 
could play some games here. For example, commercial 
software could be supplied with data In sector 4 of 
track 0. The program could then check for this data 
and run If the data were found, but quit (or make 
slight errors) If the data were missing. Since 
copying a disk does not preserve the data on track 
0, sector 4, the program would run from the original 
disk but not from a copy. Obviously a MIRROR or 
BACKUP utility would defeat that, though. 

Now let's look at other sectors. 

Flex 'chains* sectors together, so that each 
sector points to the next one to be used. The first 
sector of each file Is listed In the disk directory 
after the file name <and the first sector In the 
'chain of free sectors* Is fisted In the SIR). Each 
sector In the file (or In the free chain) then 
points to the next sector, and finally the last 
sector points back to track sector 0; this 
signifies the end of that chain. 

To see how the pointing Is done, read sector 5 
of track 0. Th!s happens to be part of the disk 
directory. You will see that the first two bytes 
(locations 2040 and 2041) of the data are 00 06. 
Hence track 00 sector 05 points to track 00 sector 
06. Each sector In turn points to the next one In 
that chain. (The next two bytes, at 2042 and 2043, 
are a counter which Indicates how many sectors came 
before the current sector In this chain. Directory 
sectors are not numbered, but fife sectors are.) 
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On a freshly formatted disk, every sector on 
the disk (with the exception of some of those on 
track 0, and with the exception of the very last 
sector on the disk) s Imply points to the next 
sector, since the entire disk Is one big 'free 
chain'. As a disk Is used, that free chain Is 
gradually shortened, and eventually sectors may 
point all over the disk as files become fragmented. 
(If you have the TSC INTEG utility, you can see that 
Its printout follows the free sector chain on the 
disk and finally ends with a printout of 00 00, 
pointing to track sector 0.) 

How do you write a sector? First set up the 
data you want to write In addresses 2040 and up, 
then change location 2000 from 09 (for read) to OA 
(for write), and again Jump to location 1000. The 
data will be written Into the sector specified by 
locations 2003, 201E, and 201F. 

If you wanted to change the data In a sector, 
simply read the sector with an 09 In location 2000, 
then change a byte of data (which starts at location 
2040), change location 2000 from 09 to OA, and Jump 
to 1000 to write the sector back. 

As you can see, accessing a particular disk 
sector or even changing It Is a cinch In Flex. 
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HOW TO CHANGE GLOBALS OF PASCAL MODULES USING FLEX 
UTILITIES 

When a program becomes large and unwieldy, we divide 
the program Into separate modules- Each module 
contains one or more procedures. Each procedure 
executes a particular function. When programming In 
PASCAL, the outermost block <1e. the PROGRAM level! In 
these modules contain no Instructions. But the 
outermost block does contain the global variables. One's 
application program will run properly only If the global 
variables In every module Is the same and is In the same 
order. In order to chonqe globafs, each module must be 
correctly edited, complied and assembled. I f one of 
these steps Is omitted or done Incorrectly on one of the 
modules, one's program will not run property. After four 
or more modules have been created, changing globals 
becomes time consuming and fraught with errors. To 
solve this problem, I have created an automatic global 
changer using the FLEX EXTRACT utllHy. This global 
changer was very useful when It was first created. Now 
It has become Indlspensl bfe as our main program has 
grown to encompass more than 50 modules. 

The first step In creating an automatic global 
changer Is to ado a comment at the top and at the 
bottom of the global section which contains a marker. 
We use the Omegasoft compiler which uses the 
parenthesis and the asterisk to enclose comments: (* 
comment *) • At the top of each global section I added 
the comment: 

{*> Global variables In the satellite. *1 

And at the end of the global section I added the 
comment: 

C* End of global section. <*) 

The top of the global section marker Is '<*>' and bottom 
of the global secTlon 

marker Is *<*)*. Then I created a program called EX CMD 
which searches the text file for these markers to 
create a command file used by the EXTRACT utility* The 
EXTRACT utility creates a file from segments ot other 
flies. It Is not necessary to copy the segments to 
scratch flies and concatenate them. A command file Is 
used to tell EXTRACT which lines are to be read from the 
files and concatenated to form the new file. In this 
application the top section above the top marker Is 
saved and bottom section below the bottom marker Is 
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saved and the new global section is inserted In the 
middle. For Instance If a file named RCOATA has a global 
section which starts on line 31 and ends on line 69, then 
EX CMD wHl create a file called TEMP with the following 
three directives: 

)RCOATA -3! 
)TEMPLATE 
)RCOATA 69- 

The new global section ts contained tn the file called 
TEMPLATE. To execute EXTRACT two file names are 
entered on the command line- For example 

EXTRACT NEWJEMP 

creates a new file called NEW and uses the command file 
described above, TEW, to create ft- All that ts left to 
complete the global changing process ts to delete the old 
file, RCOATA, and rename TJEW to RCOATA. The commands to 
change the globals of RCOATA are: 

EX CMD RCOATA 

EXTRACT NEVLTEMP 

DEL RCOATA. tXT 

RENAME NEW.TXT RCOATA.TXT 

if you have a program which has many modules, typing 
these four commands for each module Is burdensome- Also 
all of these modules must be re-complied and re- 
assembled- To completely automate the whole process of 
changing globals, I have created a program called GEN 
which creates an EXEC file called NW GLOB. GEN prompts 
for a list of files- The four commands to change the 
globals plus a command to re-compile plus a command to 
re-assemble are written to NW GLOB as you enter your 
list of modules- Finally the one simple command : 

EXEC NW GLOB 



creates new globals tn all of your modules, tn both the 
source code and the object code- Below ts the source 
code for EX CM) and GEN. 



PROGRAM EX_CMD( INPUT ,0U7PUT>; 

(* DESCRIPTION: This program creates the directive file 
used by the extract command when changing Globals- The 
Input file name ts entered in the comma no line- EX CMD 
searches the input file for the line number whera^the 
globals start and end- The start and end of the global 
block ts identified by the marker. It uses these line 
numbers to create a directive file used by EXTRACT. 
•> 

YAR 
IN FILE : STRINGt8J; 
OOT FILE : STRIMGI81; 
FILFOEYICE : TEXT; 
LINING : INTEGER; 
LINE"": STRING; 
START, FIN : INTEGER; 
MARKER : STRING 131; 
MATCH : INTEGER; 

PROCEDURE STOP; 

BEGIN 

WRITELN ('UNABLE TO FIND GLOBAL MARKER 1 ); 

CLOSE (FILE DEYICE); 

DEL (FILE OEVICE, 'TEMP 1 ) 
END; 

PROCEDURE FINO; 

BEGIN 

REPEAT 

READLN (FILE DEYICE, LINE); 

LINE NO := SOCC (LINE NO); 

MATCH := INDEX (LINE;~MARKER) 
UNTIL (MATCH <> 0) OR (EOF (FILE DEVICE)); 
END; ~~ 

BEGIN 

LINE NO :« 0; 

IN F7T.E := CLINE; 

OPEN (FILE DEYICE, IN FILE, INPUT); 

MARKER :» **!*>♦; — 
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FINO; 

START := LINE NO; 
IF EOF (FILE DEYICE) THEN STOP 
ELSE _ 

BEGIN 

MARKER := '<*)'; 
FIND; 

FIN := LINE NO; 

IF EOF (FILT DEYICE) THEN STOP 
ELSE ~~ 

BEGIN 

CLOSE (FILE DEYICE); 

OUT FILE ^"H-EMP'; 

CREATE (FILE DEYICE, OUT FILE, OUTPUT); 

WRITELN (FILFOEYICE, "VjlN FILE, ' -', START-I :0); 

WRITELN (FILFDEVICE, ')TEm.ATE'); 

WRITELN (FILrDEYICE, ')', IN FILE, 1 \ FtNH :0, '-'); 

CLOSE (FILE DEVICE) "* 

END — 

END 

END. 



PROGRAM GEN (INPUT, OUTPUT); 

(• 

DESCRIPTION : Th Is program prompts for a list e files. 

For each file ft 

creates 6 commands: 

EX CM) file name 

EXTRACT NEW,TEMP 

DEL file name 

RENAME NEW.TXT, file name 

PC <f1le name >f lie name 

RA <f lie name >f lie name 
GEN outputs these commands to a file called 
NW_GL0B which 

ts used as an EX£C file to change globals- 
*) 



YAR 
OUTFILE : TEXT; 
FILENAME, NAME 

BEGIN 



STRING; 



FILENAME := 'NW GLOB 1 ; 

REWRITE (OUTFICE, FILENAME); 

WRITELN ('TYPE "<QUIT" TO EXIT 1 ); 

WRITE CFILENA!*: •); 

READLN (NAfE); 

WHILE NAME <> »<QUI7 f DO 

BEGIN 

WRITELN (OUTFILE, T EX CM) ', NAME); 

WRITELN (OUTFILE, 'EXTRACT NEW, TEMP'); 

WRITELN (OUTFILE, 'DEL \ NA»€, '.TXT 1 ); 

WRITELN (OUTFILE, T RENA*€ NEW.TXT ', NAME, '.TXT 1 ); 

WRITELN (OUTFILE/ECHO CO^ILING \NAME>; 

WRITELN (OUTFILE/PC <',NAME,' >',NAME,' 0'); 

WRITELN (OUTFILE/ECHO ASSEMBLING *,NAME); 

WRITELN (OUTFILE/RA < 1 ,NAME, , .C0 > T ,NAK€,' 1 ); 

WRITE ('FILENAME: •); 

READLN (NAME) 

END; 
CLOSE (OUTFILE) 
END. 

BASIC'S "USER" 

WOODY BAKER 
RT 11 BOX 47fi0 
LUFKIN, TX 75901 
<713)-639-3417 

USING USER 

This article was first written over 2 years 
ago, just after I had purchased my TRS-BOC compute • 
At that time, Radio Shack had not released their 
updated manual , and there was no Information 
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available on how to use the USR function. The 
article was written and presented to our local 
computer club. Unfortunately, It went way over the 
heads of most of the people present, but I trust 
that our readership will be able to understand It. 

tfe are going to take a look at the USR command 
and what It can accomplish for you, the programmer. 



First things first, so let us look at the 
syntax for the USR command. The syntax Is 
VARIABLE-USRCVAR1ABLE2 or CONSTANT). The value 
within the <) Is passed to the floating point 
accumulator for use by the machine code routine. 
The result that the user's machine language routine 
Is returned to Basic through the same accumulator, 
and assigned to the variable located on the left 
side of the Hum sign. The variable on the left. Is 
optional, In that the USR command can ba used within 
an expression, and the result used by the 
expression, and then discarded. For this discussion 
we will assume that the variable Is required. 

The USR command leaves the value that is passed 
to It, In the floating point accumulator, located at 
$4F-$54, This Is the primary accumulator for 
floating point operations, and Is utilized In much 
the same way as the A accumulator with In the 6809 
chip. If we desire to operate on the floating point 
value directly, we don't need to convert it to 
Integer, but If we need the value within the machine 
language routine, then we must convert the value to 
a "two byte Integer. An example of operating on the 
value directly. Is adding a number to the exponent 
byte to multiply the value by soma power of 10. For 
example. If we add two to the floating point 
exponent, then we will have multiplied the number by 
100. A little thought about this, will enable you 
to do very lest multiplies by powers of 10's, 
because the computer doesn't have to do a floating 
point multiply. If we desire to use the value In 
our machine code routine, we need to convert It from 
floating point representation to Integer 
representation. This requires a lot of coding, but 
since this function Is required by the basic 
Interpreter, and Is In the ROM, we don*t have to 
worry about It at ell. AI 1 we need to do. Is to to 
a JSR to IF1X, which Is located at location SBCC8, 
and the Integer result returns In the X register and 
Tn locations* $52 and $53, with $52 being the mist 
significant byte of the two byte number. 

In order to have the value returned to Basic, 
It must be left as a floating point number In the 
floating point accumulator. If you wish to return 
an value from a machine code routine that Is a two 
byte Integer, you will have to convert It to 
floating point before you return to Basic If you 
are Just operating on the number within the floating 
point accumulator, you need only do a RTS as the 
number already Is In floating point format. To 
convert a number from Integer Into floating point, 
we can again take advantage of subroutines living In 
the ROMS. There are "two primary routines here, one 
which floetes the D accumulator (the A and B 
accumulators combined) and one that floats only the 
B accumulator. The single byte float routine called 
FLOMB, Is located at $B4F3. It simply clears the A 
accumulator and then falls Into FLOATD, located at 
$B4F4, which floats the A and B accumulators. 

Listing 1. shows one usage of the USR 
function. In this case an exclusive OR of the high 
byte end the low byte of a "two byte Integer number. 

Listing 1. also has an example of a rather 
Interesting technique for embedding machine code 
Into a basic program. I stumbled on to this 
technique back In 1979, when working on a light pen 
for ESMARK INC. Essentially, It fools basic Into 
thinking that a machine code program Is a REM 
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statement. It works as follows. Line 10 of the 
program consists of a REM statement, followed by 12 
*'s« The program pokes the machine code Into the 
place of the *'s. There must not be a space between 
the REM and the first # . 

The machine code. Is 12 bytes long, so there must 
be 12 #, s there. This REMARK statement In this 
case, must be the first line of the program, unless 
you change the offsets located In lines 15 and 16* 
The of sets allow the program to determine where It 
Is, regardless of where the start of basic Is* 

This technique of embedding machine code In REM 
statements. Is very handy, because the code will 
load and save right along with the basic program. 
Due to the way that Microsoft stores Its lines of 
basic code In memory by using pointers to the start 
of the next line, you can embed as much machine code 
as you wish In a REM line, If you change the 
pointers* 

In practice, since the color computer allows you 
to type In up to 255 characters In a line, you can 
set up a 254 byte line with 1 guard byte left over, 
and all this without having to fix the pointers. 

Line 15 of the program makes B point to the 
start of the basic workspace, adds en of set of 5 
bytes to It, and makes C point to the start of the 
#, s. Lines 17 and 18 reed the machine code out of 
the data statements end poke the machine code Into 
the line of # 's. It terminates when It encounters a 
In the code. Using this technique, you cannot 
have a byte In the machine code, as basic will 
find It and think that this Is the end of the basic 
line* It will then set It's pointers up, and wipe 
out the next 4 bytes of code. Line 30 is the 
decimal equivalent of the machine code shown In 
listing 2. Line 35 calculates the two byte value to 
poke Into the USR locations that tell the USR 
function where to go. In extended Color Basic, you 
would have to replace line 35 with the following 
line: 

35 0EFUSR(0)-C:REM SET USR(0)x>MACH1NE 00OE. 

Line 36 pokes the user address Into the user 
vector for the user call. Line 40 sets x to 16706, 
which will convert to the two byte Integer $4142, or 
'AB'. This allows you to pass two one byte values 
to the USR routine. To do so, you must first 
multiply the first value by 256 and then add It to 
the second value. Upon return from USR(X), Y will 
hold the value 3, which Is the exclusive or of $41 
and $42. If you are using Extended Color Basic, you 
will have to replace USR(X) with USRO(x). 

A word about the program. In cryptography, It 
Is often desirable to exclusive or two characters 
together, one character being the key and the other 
character being the one to encode with the key. The 
result can be easily converted back to the original 
value, by simply exclusive orlng the encoded byte 
with the key byte. 

So^one may be asking, well how do 1 use this 
program to encode text data? Simply by taking a 
character from the key string, end exclusively orlng 
It with the corresponding character from the string 
to be encoded. To do this, you must first Isolate 
the two characters, convert them to their binary 
equivalent, multiply one by 256 and add It to the 
other, and then call USR<X>, with the result In X. 
This task Is then repeated until the two strings are 
exhausted of all characters. 

Listing 4. provides a much simpler way of 
doing this. The Instructions for setting It up ere 
the seme as for listing 1., except that It needs 52 
*'s, as the machine code Is longer. This routine Is 
very different In function however. It takes the 
names of 2 strings the seme length, passed to It In 
the above manner, and replaces the first string with 
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the exclusive or of the two strings. It actually 
looks the strings up In memory , and works directly 
on the strings- If the strings are of different 
length, the function call error routine Is called. 
In order for this to work, the ascll equivalent of 
name of the string to BE encoded must be multiplied 
by 256 and the ascl I equivalent of the KEY string 
name, must be added to It. The strings MUST be 
single character names, such as A$ # B$ etc. but not 
A1$. 

Listing 5.' Is the machine language routine 
that Is used In listing 4» After running the 
program the first time, you may delete lines 28 to 
the end of the program, and save the resulting 
routine to tape for further use. Lines 30-110 are a 
demonstration of the way that the program Is used. 
Beware of using a constant string for the 
destination string, as they are stored In the 
program, rather than In string memory and you could 
be In serious trouble If It got out of hand- If It 
produced a anywhere, you could be In serious 
trouble* If you want to make sure that a string Is 
held off In memory somewhere, you can either assign 
It to another string, or append another letter to 
It. This Is why the string In listing 4-, Is 1 
character shorter than the key string, and has a "t" 
appended to It. This forces the thing off Into RAM- 
Line 60 of the program assigns the string names to 
the appropriate two byte value for the call. 

The two assembly programs are comn^nted enough 
to make them understandable, I hope. Listing 5- 
uses a new routine In the ROM. It Is called FNOVAR, 
and It looks up a variable In the symbol table or 
variable table for basic. If the variable Is not 
there, It Is allocated blank storage In the table. 
The routine operates by finding the names of the 
variables to lookup In locations S37 and S38, and 
returns the address of the variable In locations S39 
and $3A. The routine FNOVAR Is located at $B38F* 

I have shown yew bow to use the USR function on 
the color computer, and have given a practical 
example of It's usage. Happy USRIng. 

I am very deeply Involved In dissecting the 
color computers basic, and 1 have a lot of 
Information about It, and am always looking for 
more. If you need help with understanding It, feel 
free to contact me. 

If enough Interest Is there, 1 might be persuaded 
to do somo more articles on the ROMS. If you feel 
that you absolutely have to call me, please don't 
call between about 5 p.m. Friday (Texas t?me) 
through 9p.m. Saturday, as I will not be available 
for comment or discussion during that time. 
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IF «-■■- THEN U 

t> COMPUTER'* NOV* EVALUATION #> 
PUN EvALipOAAQ.FLAO) 



ir 



IF 



• 1 


IK 




PAtNT "THANM TOO FTJ 


*> 


■At? 




M|Nl 


M 


•AFl 




FAINT "DO VDU WANT \ 


-> 


•CM 




MINT 


*> 


■CIS 




|N*U7 -fMTTA A V/M» 


•> 


■C2* 




IF ILIIIIWUI *v THIN 


*) 


•csa 




oore ii 


•> 


K39 




ENOIF 


•> 


•cji 




IF aP**XB*B»<-N a THEM 


•> 


bc*b 




OOTQ IN 


•> 


ACtC 




CNSIF 


•> 


AC4I 




■N0IP 


• ) 


BC5* 




OOTQ 5P 


• ) 


BCS* 


III 


CMS 


• ) 


FMXCOUNt 


■ETAAAAY 



01M »OA*0Cl2. 1»HBTA1N0CI> 

01« CLAM. MHBO.BLAe*. WHITE* WHK1NO. ILK iNOr EMPTY • ETA) ND( 1|] 

Qlh CUWDW> h. A. 1, C.MFlHAilllTAINOtt) 

OIN J*K. J, L.N, HAtii[NTCDEII 

D1H FLAO.OOFBi iHTeotH 

<• MAIN EXECUTIVE MCTION •) 

(• INITIALIZE -> 

MlMf CMRt( 7)1 CHHMft*)! V* CLEi 

CUP*0A4«CMflt<27)*OiAP( S> 

«LACKi-C«Mt<a7) -"Fhh-*CH(I»<2?>*»0" 

wN|TH»CMHt?27) ♦"*» "»CnA»< 27 >•>•«' 

UHK INQ i «CMA*<27> • a »«<X a «CHIl*(27) •"«• 

■LKINQi« a MM a 

e«»tvi«" • 

(• INITIAL ARAAV MTVIF •) 

hum MTMiflvmwm, khfty. iaiiti, ilACk) 

<- C0HFUT(H HAKtl TK FIAfT rOVt *> 
HUN F t AITNOVt < MAFD . KJV TV V ALACH . AAN | 



»> 



CCC F08ITICAA1 •> 



<• MINT TMC CU««NT FI 
KJN FOt(rtONfl(MOAO.aJPIOA> 

(• INTUT CtW»^t •> 
Al»-- 

FAINT OAPASAI ••«•■ CHA*(2T)| 0HA»<79» » 
INFUT -CNTM VOOA nOVC* -, A 
<• M» FOA A AAO IMFIT? •) 

FDA N-l TO L 

ci-^iHrR,h, ij 

IF < <-•- TKN 

IF C<^— • THD* 
OOFIi*! 

OA1F 
CHOIF 
IF Cl"»* T>€>« 

if co"*« no* 

00 Ft i.l 

Choir 

MflT N 

IF 00FI-1 THKH 

FMlMT CHKi(7>» 

OOTQ U 
END IF 
IF UH(A) OS THEN 

(• eOAHSCT FOA IINOLS OIOIT EHTAItA •) 

Mt«| 

Ci»" 

HE FEAT 

Ci*C«^IOE(A.N»l» 



UNTIL lHDl(R.N. t) 
IF LENCO-1 n«N 

pi*-i-*c 

|j«CiHlO«(A>Nr 1> 

N»-N*l 
ELM 

I*-LIFT«<A.S> 

Nl*N«l 
CNOIF 
Ci — • 
AEFCAT 

Ci-^«NI6«(A»N« l> 

Mi**** 
UNTIL hlO»(A.W. !>••• 
IF LtM<C)-l THEN 

Cl*"l a «C 

|i-l«C 

Al-« 
LN 

Pt-»*C 

Al*l 

EMDTF 

(* TEAT rOA ■ fAD INAl/T -> 

IF nlD#CA.l. U CI--* THEN 

IF NlO«iA»S. )) t) •■• THEN 
OOFAt-1 

OCIF 
END IF 

I* ucrrt(p.?>)*32" rmn 

00Fti«t 
EWOtF 
IF Mf»rPCP.2lt'32" THIN 

OOFti-l 
DC IP 
IF LPJFT»<A,2H a ll a THEN 

OOFIi.l 
CNOIF 
IF FIAKTP<A.2>< B AI" T>«N 

00 Ft J. I 
ENOIF 
IF OOFA-l T>«N 

FPINT CMA«(7>I 

OOTQ M 



OA NI&KA.N. I>« 



IMS 

pROCtouat 



<• TNII FVCXSAAK II OTLLfB IV TH1 CMECXn nECUTIVC •! 
f* FACCtPUH POP UM 1H ■tTTlNA UP THE ChETKU* AQAMO ** 
(• NNITTEN IT E.H,AOLLINOEP ON JUNE 27. IW2 •> 

FBAPN IQAA04I2, I2>i THlNQCII 
PAAAPJ ENFTr.t*4[TC,lLACHiETPIN0[||] 

Dm cunioiiitrHiHorii 

Din AAN.I. JllNTCOfN 
DM AOMTR.ICNTAiINTEQEP. 

Oih Aline, PLthEiiTHiNOCU) 

DIM CLH*a<NH|0i|TfltNOtL|] 
t* 1ETUF THE AOAAD -J 
FOB l»3 TD 9 
FOP J-2 TO I 

I0AN0(I.J)i«#1FTV 
NEAT J 
NEXT I 

FOA l>2 TO 4 ITEP 2 
FOP J-2 TO I ITEP 2 
P0AP9CI.J) i«MMtTC 
NEXT J 
NEIT I 
FQA IO TO 9 

FOA j-J TO 9 ITEP 2 
«MMU, J)i*++(|Tt 
XIT J 
NEXT E 

FOA 1-7 TO I ITEF 2 
FOP J- J TO 1 PTEF 2 
•OA ASCI. Jii*^CK 
NEIT J 
NEIT I 
POP t -A TO I 

FDA J-2 TO • ITI# % 

■OA 0<1.J)i ~ 
NEiT J 
HEM I 

FOA ->• TO II 
FOA J-A TO % 

NEiT J 
NglT I 
FOP J-A TO 11 

FOA J- IP TO ll 
AOAAAU.JH** 

NtlT J 
MIT J 
FOA I «A TO I 

FOR J-A TO II 
AOAADtl.J.I*' 



ME*T J 
NEF>T 1 
FOP 1*11 TO II 

FOA J-A TO 1| 
AOAAQM.JH-" 

NEXT J 
NEXT 1 
UNO 
PIHITHOVC 
(• THII PAJX-nUAl IS OAJ-ED IY THt DATDOA EXECUTIVC •> 
I* PAOCtOUAf HHtN fNt COHPUTIP II TO NAJtl THf FIMT »> 
«• NOVE, WAITTEN IT E. POLLINOE A JUNE 27* ITPE2 •) 

IAAE I 

FAHRfi POABDH2, l2MlTPIN0f|) 
FflAOn C*FT¥. ALACK* ITAlNOClAI 
DEN AANiENTEOAA 
WMi-ANAtAl 



•ACS 




ON AAN 00T0 1AA, 1 IA. 12A* l». 14A 


MF1 


III 


■OflADfT.Jji^nFTT 


•m 




■OAA0CE.4I 1-AUACX 


■u* 




OOTD 2*1 


■ ELF 


It* 


BOAAS 1 7* SJ 1 ^HPTT 


AL2P 




POAAD ( &■ 4} 1 •ALACK 


■ISC 




00 TO 2AA 


•!«• 


131 


•DAA0<7.9M«A7tFTT 


H9A 




BOAA0<«. EMXLACN 


■ 130 




00T0 2AA 


■ 111 


Ml 


■OAjADC 7. 7> i-CFtFTY 


■ 171 




BOAAD<l> h> i 1 ATH 


■ 171 


3M 


ENO 



|| CALLED IY THt I 

NEC0EO. 

(- UAETTEM IT E- H. AOLL I H0EA ON JUNE 27. IA 
FAAAFi CUAA0AI«TRIN0C«3 
01 N NfiHTl. PdNTAi IHTEOEA 
DIN ALlMf.BLIMlPTAlMDlPai 
OIH EXAAO.t*AN*|TAtHaClll 



*l27>*OlA*ITPl* a | t M M***HA*C«J + 
AL E ME » -CL PAO HNMNA « 
IllMf (■ 
< * DAAH THE CHECK CRAOAAO *l 

WHILE ACNTAI3 DO 
PCHTRKI 

NHlLC ACNTIU 00 
PAINT BLIHE 
ACNTAi-BCNTH*! 
*4lLt 



C- CHANOE SOAAA TO PKPLETT THE 
AUN O*NAEAAPA*f»flAA0,A.MHKINO< 



MEN INPUT •! 

NNITE. EHFTT.N* 
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•199 

■ ICS 

1I0L 
HOT 

■ lOO 
UN 
•IDF 
•IE4 LI 
%\f% 

■ LFt 
•ML 

MM 

AM 



■CXtc-i 

fcMlLC KMTIK4 00 
IF NMTOH T>«N 
|F 9CMTA-3 OCN 
MINT ALl»Cl 
QOTO m 
MMP 
BMP 

MINT ALt* 
■CNT|i.*CMTR«l 

obbbmlc 
«cmthi«ao^m«i 

MIL1 
MINT T>41 M^ tOOKM ON TNC IQAAO •> 
MINT CLR90HI - •21-1 QJRJMJRi 
1 " N32M 



FAINT 

I '•W8 , l 
FRlNT 



I -i*2>"» 



Rl 




QMOftl VilO'l QMIUT •/ <i »• I 



•47F 
M0CI0OM 



■ 174 



■ LU 

•iC3 
■ice 

• (03 

■ LOT 

■ 1« 

4$ 10 

•iFi 
mi 

■230 



•7*9 
•249 

F4OCC0U4* 
MM 

M30 

M7A 
MOT 



MINT CtiMOJIi *)«17«I 

l -}N7B"» 
FRlNT 0149041 -.♦13-1 

I ".Nli*i 
MINT CU490RI "/■• 

I "/NJ2-I 
MINT CUMORl '2*6 «» Qjr+CA\ • **■ <l OUNMl '2f7 "I 

I •2N» *1 
FRlNT CUMOfti -■•! "i QjRMRi '902 •■ CU*90RI "SUi "1 

t *3H4 -i 
<• MINT T>« QMMM INFUT OtXTION OF THl BCRCCN -) 
FN I NT CUMOAl VX*i "04XKCRC VfD, |.«*l 
MINT CUROCM *JO" I *TQ nOKf A MOvCt-i 
MINT CUH60BI --O'l -Caik « Fro- 009 - To ■»' I 

mjnt cuaigai "*o"i *ron mnu jlwfci-i 

PAJnT CUJBOftl -.0-1 'tM.r 4 Fro* Bfil X T 9 OQf-l 
KNO 

focitiono 

*• THJ0 MOCCDURC UTOATIt TV* CURRENT FICCC FOR1T10N9 

1. ON Tr« 0>«C«44OA40. IT !• MlXCO 0Y TXC £>CC«F9 

(• CKIQJTlyt FA0CIDUPK WHEN RCDUlRCD. 

t* WRlTfCN OV C. kJ.90U.tNOC* ON JL«C 27, 1942 

■ME fl 

hCIt* L2lilTfttN0t«J 
IIOTIIHTJEOJ 
01* RON.COlUNN. *. V. ACNTRt 9CNMi INTOBU 
<• CVK« tOMVl •> 

R0N«»34 
■ •-2 

WKI U0M>3a DO 
CTJLurw i •** 
Vi-2 
UHILE DDLIR9M72 00 

FAINT OJOMl 04M<I04)I GHR4CC23UFM) I 
•HUNT »OARO<X.VJI 
COLLFW » <Ai#N « I 2 
Yf «Y*I 



CUR90R 




If4fl 

UULl KOM 33 00 
C<W»i«44 

WHlLC CSUFWlTB SO 

MINT CURBDRl CHR4<RC*J)I D«M( 

MINT KniDlK.Vn 

00UR*»KEUF#**12 

Yi«r*2 
CNOWNfLC 
RON i-l 
I--I.V 

ILK 



CONVKRT 
C* THIN FRTJgDURB RIHA.Y TAKtf T>4T 
(• THC NJN IM TQ TM MOfCH MHV 
I* COMFt/TCR IN FUWINO TMC ©4TO«91 
TOHM miTPUNOCfi} 
DIN C*|T4tNO(21 



can 


IF C*"l«" T»«N 


•3C3 


OOTO » 






•HO 


CI--04- 


•3C4 


■>45IF 






•314 


00TB 2* 


•3C4 


IF C--28* 


T>4Ttt 




un 


MNP 


•SO* 


C*«"»2- 






nil 


IF C--11" T>«M 


030F 


OOTO 2» 






u» 


Ci — 64- 


•3S3 


1M01F 






•331 


OOTO 20 


■3C9 


IF C--24- 


TMN 




■333 


DAIF 


•3F3 


C.--0*" 






■337 


If C--H- T>«M 


■3FC 


OOTO 2* 






■34? 


CI--M- 


0404 


CNOIF 






■34C 


OOTO 2* 


04S2 


IF •-♦37« 


T>4TN 




•332 


ottir 


•«;■ 


CI--BO- 






■334 


If C^-ai" T>€H 


0419 


001 24 






•342 


Cl»"T3' 


•410 


CNOIF 






•341 


a; -a 7t 


•41F 


IF C--2*- 


TKN 




*:«>' 


MP 


0&2D 


C •-•■•• 






•3ft 


If C--22- T>«N 


•434 


DOTO 24 






■3T 


Ci^'73' 


•43A 


CNOIF 






un 


OOTO 20 


•43C 


IF C--29- 


T>4TN 




UK 


4N01F 


044A 


Cf-93- 






■sac 


IF C--23- T>«H 


•433 


DOTQ 2S 






■3% 


Ci-"77" 


0437 


CNOIF 






■3A3 


OOTO 2« 


MM 


IF C--M" 


TMN 




MAI 


WHO IF 


0407 


CI.-99- 






•JAI 


IW C»»24« TVEN 










■309 


Ci--T»- 










•47a 


OOTO 2* 










•474 


MMP 










•4TS 


IF C--3»« T>#> 










•404 


Ci--»7« 










4400 


OOTO 2» 










MIL 


MP 










•493 


IF C--32" T>«N 










•4A1 


C»— tl' 










B4AA 


OOTO 20 










MAf 


MftP 










•401 2* 


■CTUHN 










FROCCOURC 


CMMOCOOMV 










•Ml 


<* THI4 FAOCCDUK CHANOn 


TK BOAFD 


HRAY TO F*T* 


*> 


M31 


C* CUBMNT iNFUTTfO FUCC fWCCf), 






*> 


0072 


(• WRITT1N OT C.U.4OU.IN0C1. iUS 2*» 1*02 




•> 


•BOJ 


•*•£ • 










MAO 


MAAM ■OA40C 12. 12>»trilN0ti] 








MC2 


FOftAn BrfTHlNOCSl 










MCC 


HMH 4ftWlN0.NNlTf*CHFTYi 


■TiiNon*] 








MC? 


FftftAN HIITRIlOrOl 










MCI 


Din 1. J.N.LMHTC0EA 










•tai 


|i«VAL4LCFT*CA. |>l 










OlOC 


Ji«VAL<ntDftCA.2.1>} 










•HO 


Hi-VALcn|D«rA.4« 1 J J 










li* 


Li»V<tt.(PIJQttTlCA» ill 










H(*HJL>*{n,3. 11 










• 140 


IF mmt-2 THCh 










a.^k 


ir L.-J-2 TKN 










■ 100 


•OAflOiK.O **4*4XtN0 










■179 


oofltot i. J] t-cnr-Tv 










■ IB* 


•04 «0U - 1 , J- 1 > * -€7WTf 










•its 


OOTO 2ft 










4l« 


■MJf 










• IMF 


MfJP 










4)Al 


IF K-I-2 TX4> 










til. 


IF L-J*J TMM 










■ IC1 


•0HAO f N . L > 1 44f( t NO 










■IN 


■OaFOi t. Jli^ftFTv 










■ LOT 


00*4Dll-l, J*L>i-CHFTT 










• lF4 


OOTO 2M 










■IF! 


CNOIF 










■1FA 


CMOtF 










• LFC 


IF k*o. r>4> 










•2M 


•OAIO < M. L. > I «MF( 1 NO 










B2L7 


OOTO IN 










•210 


■NOIF 










■210 


IF HAttOlt.Jl-NmiMI TXN 










■23« 


■Ofl PlD t « . L » 1 •**« 1 NO 










■23* 
•243 


OOTO t«0 
CNOIF 











•TOlND 'A' H 

N^Af IPM UN IV M 



fli-C*FIOMT»<ft. 3> 
Ci-PHDPTt<fl r 2J 



MFC 


OOOU4 10 




MFC 


Al«lCFT4<0 


it 3r*C 


■ LOP 


CMC 




*I0D LI 


IF C»*BL* 


T»«.N 


■ LLC 


Ci--22* 




■ L2T 


OOTO J« 




■ 121 


CNOIF 




■ 120 


IF C--92- 


T>4TN 


• 131 


C«»"24- 




•144 


OOTO 24 




• L41 


CNOIF 




■144 


if r>-«3* 


THCM 


•isa 


c«-*»- 




•tci 


OOTO » 




•iC3 


CNOIF 




• 1*7 


IF C.-A4- 


n«x 


■ 179 


Ci**2A* 




■ ITE 


OOTO 2« 




■ L*2 


■MOtP 




■L04 


Xf C— 4TJ- 


tmn 


■L» 


Ci-*33» 




•1*0 


OTJTTJ 29 




^W 


CNOIF 




• LA| 


IF C-'M- 


THCN 


•14F 


C*«'39» 




01 •• 


OOTO 29 




•IOC 


CNOIF 




• LK 


IF C*"«7« 


TMM 


■ICC 


CI--J7- 




J:j5 


OOTO 24 




• LD« 


CNOIF 




•101 


IF C-'M* 


T>4W 


•I CI 


C«— 39- 




•LF2 


OOTO 29 




■ LFC 


CNOIF 




•1F« 


IF C— 99- 


T»«N 


•7M 


C<-"42* 




0B«F 


OOTO 24 





•24.9 

92S4 IB 



0203 

02C3 



92 OA 



90AAO(K,L>l<«44ITl 

■OAftOIl.Jli-CNFTV 
IF h-l-i- MN 
IF L-J+2 TNCH 

•0A4OCK*l*L<-l> »m 
OOTO 29» 
■NOIF 
IN01F 

IF K*U2 t>4T> 
IF L-i-2 TVCN 

9OA40 ( K-l . L* 1 ) I *4>FTV 
CNDIF 
CNOIF 



•213 


CNOIF 


•213 


IF C-M4- 


■233 


C«««44« 


*22C 


OOTO 2A 


■234 


■NOIF 


■233 


IF C--W- 


■241 


Ci-"44 a 


■249 


OOTO 24 


•24S 


CNOIF 


924F 


IF C—12- 


■290 


C«— 40« 


■244 


DOTO 20 


•24A 


CNOIF 


924C 


IF C--13* 


927A 


Ci— 33- 


•283 


DOTO 24 


■39? 


CNOIF 


9299 


IF C--I4" 


■29T 


CI--89- 


•2A4 


OOTO 29 


•2A4 


CNDir 


■2A4 


IF C--L9- 


■204 


Ci-»3T- 


a:uz 


OOTD 29) 


42CL 


CNOIF 


•2C3 


IF C--14- 


■2DI 


Ci«-39- 


■2TM 


OOTQ 29 


•20C 


CNOIF 


92C9 


IF C-M7" 


■ 7£l 


Ci--42« 


92FT 


0010 29) 


MMJ 


CNOIF 



P4jpj9j4j CVflL 
MM C- TMIO FAnOTtOM) FCAF U AJA TM CVAOJITION OF T>« 

M31 t- FDi Ml CCHFVrtR'O FORT OF TX OANC, 

M72 <• WRITTCN 9* C U. OOU. I NBCR ON JlAC 29. I9R, 



4(12, 12>I9T*[N0C«) 

FAAW FLAOlIiOCOf" 

OI/l !M|TC.0^0CK.CNrTY«i4«<lNn.aiJ(lNOi9rRlNOe4) 

DIN i. Jt«. L* INT9M4 

•LACK 1 4MH I IT 1 * ■ F H * *CM4« 1 97 1 *•■ » 

4H|TCi-04R»<17J»*» •*CNR«(9Tl* H * B 

WltlNlH-CH«llT)»'»«OI*.0«M(I7l.*«' 

9Ol|H0t>-«CH- 

CnFTti-- - 

<* fcJKX CMCOI1N0 FOR JVFIF9 •) 

FUOI4 

|i-3 

LOOF 
Ji*2 
LOOF 

IF BOARD < I, j>-9UK> T>4W 199 
IF BT34R9(I. J1O4VNIN0 T>4DH 1M 




CliTlF FlAlliB TH> 
CNOCUT 

2*»^-l 
■IITIF JJ9 TMCN 
*|T 



CKtTIF FLAfl>9 T>4> 
CNOCUT 
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27 



•231 
8233 
B239 



RSI 

82 3 



•3*1 
8MB 
8383 
RIO 
82CJ 
BCJ 
8206 
•3C2 



i*-ui 

CXITIF III then 
cwstnr 



bob 

B4fc4 
MEB 



Mil 
MIB 
•931 

8330 
8333 

»ao 

B3C1 

a»3 : 

»72 
S3 79 



•sac 

«c» 
■ass 

•9FK 
BBFO 



MT1 
•47D 
«*7F 
KM 
MAT 
HK 
MC7 
BtCB 



ana 

ITftl 

•73D 
• 7KB 

28 



IF FlAO-IS THEN 

J»-L 



INBlF 

IF FLA0-1I T>«M 
1i"K 



CNOIF 

IF FLA0-I3 THEN 
|J-tf 

CNDIF 

(• IKIU^II JIFV8 •> 
IF fLMO-l MN 

|t*M 

J»*L 



I7K 

■7U ' 

•770 

•781 

•70C 

•796 

•73C 



■ 7M 

87CT 



MIS 
Mil 
MIF 

M3T 



CM) IF 
CXITIF FLAOIB THEN 
CMDCUT 

CklTlF J>« THEN 



CXITIF FVROIS THE* 
ENOCH T 
H-I*l 

EXITIF !►■ TXN 
EMDClJT 



A MFC KM •> 



B3«C 

«su 

Uil 

• 110 
•328 

a*2C 

■ ;it 

B33A 
83 3C 
83*0 
B3C9 
•173 
•379 

•37 « 

B303 
1184 
MM 
MM 31S 



411 

• 13 



■M01F 

IF FLA0-3 THEN 
I I'M 

qobui aaaa 

CNDIF 

IF FUV-3 then 
II-* 

ao«Ai 2««a 

ENDIF 

IF FLA0)8 THM MS 

<- OUAllDlNO AOAlNBT R*V AFV» 

FLA0r*8 

no 
LOO* 

J<»3 



IF B0AR0<I.J>«RUCM THEN 3ll 
00TO 39* 

tF ■CAHOiI-l, J-t>-WlTE THIN 
IF Dd-LJ-O-CHPTY THEM 

GOTO 23B 

CNOIF 
CNDIF 
IF 80JVMd-l.J»l>-4«lTt DCM 

IF BM0(l*I.M)-OrTY THEN 
Q0TO 3M 

CNDIF 
CNDIF 
MTO 3M 
IF B0RRDd*3.J>-8LAO» THEN 

B0tt8Qd*l</M- 

8OAR0U»l. J*l> •- 

ru»iyu««i 

OOTO 3M 



M89 410 
MM 



MDA 

MDC 

MDE 431 

8BFA 

•918 

M» 



•931 
•933 438 



•MB 
•97C 



IF FLAOdl T>8> M8 

<• 8U0041*) LOOK1HO FOR 

LOO* 
J i -7 



IF 80880(1. S>OBLX I MB THEN 4M 

if ao*wu-i.j*n«<MFrr thch 

IF BOBA0d-3. JMIHXITB THEN 



IF BDO80<I-2.J*3M>MHIT1 THEN 

OOTO 498 
CNOIF 

CMOIF 

CNDIF 

IF B0OA8d-l.J-l)-«NFTT THEN 
IF DQARDd-3*/H)MXITT T>MM 
IF BOARD <>-2. J-31 OMHlTE THEN 

CM TO 448 
EMDIF 
CMOIF 
ENOIF 

IF B0ARDd*I.J*l»-«7«rTY THEN 
IF BOAA0d*3. JHIIM1TC TKN 

IF B0AR9d»3. JOXJMWITT THE*. 
OOTD 478 

CNOIF 

CNOIF 

IF 80080(1*1. J-l 1 -*>FT> TMU 
IF BOARD < Ul. J-8H> MM IT1 THEN 
IF BOARD d*3*./M> 14*1 T« T>CN 

OOTD IN 
CNDIF 
CMPIF 
CNDIF 
OOTD 48B 
IF 8OAR04 1~2. JMItMIW THCH 

[F BOARD(l~2. J*2H)MMIMD THEN 
IF BOARD* I. J*2MlWHKINO TH£« 
•OAROd.JJi-CMFTV 
•OAAOO-l. J*lM-8Ud«) 
FVAOi-*VAO-l 
OOTO 488 
CNDIF 
CNDIF 



IF 



DIF 



THEN 



<)*3. J*3) 
f l*2*J*3ii 
CI* I. J*l»1 

ruui^u8*i 

OOTD 2M 
CNDIF 
IF BOA*Gd*2. J-2I-BLAC* THEM 

BOAAOt 1*2. J-2> i *CH8TV 

BO*.*Lm 1*1. J-U*- 



CNDIF 

IF MMWtttl.j) 

Odd. J>IH 
FVAOi-FlAOd 
OOTD 3M 
CNOIF 
CEITIF FU»»a "THCN 
CNMklT 

Jl-J*l 
C11TIF JIB TKM 

in 



BA92 478 



BXtTlF fl_M)8 TVCM 

Mtxn 

n«t*t 

CXITIF IIB THD< 
CNDCKIT 



B8L3 
M17 ■ 
MJ3 



tr FLA0)8 THIX DM 

(• RUBS* UXKIKJ FM A MFC HDVI ♦> 

FUto«-i 

1 1-2 



nam 33* 



J»-3 



IF BQ880<|f J>- 

ooro 3M 

tf MWN0<[-2 t J)«*MlTI THEN 

IF ■0AM<I.J»3>-OOTT THEM 
OOTD 331 

CNDIF 
CNDIF 
IF _ 80880 < 1-2. J-2)^*UTt TNEN 

OOTQ 3M 
CMOIF 

IF 80880(1-1. J- 1)<«NFT> THEN 
Otl.JllaCnFTY 
D(|-l.J-lM-8UCiC 

FLMi^UaHJ 

OOTO 3M 
CNDIF 
IF B088Dn'-2.J)*WtT1 THCH 

IF 80A8D(1.J*3)-<NFTY THEN 
OOTO 3M 

CNOIF 
CNDIF 

IF BQ88DM-3.J*3»4MtTC THEN \ 
IF B08M<I-I.J*H « 8WFT V THEN 

BOAFDtl. J>l-fHFT¥ 

80AHOii-li J*IH* 

FUUi^FLRO*! 

OOTD 3M 



DIF 
OOTO 418 
IF BQ880<I-3.JXIMHKIN0 THEN 

IF BOA8D(l-t.J-3MlHWtHD TMlM 
l¥ BDABOtl. J'tH 1188(1 MB THEN 
POAflDIlt JH-WTf 
BOA80I I- • . J-l M-8LKI M3 

OOTO «8B 
CNOIF 
CMOIF 
CNDIF 
OOTO 428 
IF B0A*DI1*3.J>I)MHK|M0 THEN 



IF aOA8D«l*3. J*2>I»MMK|ND THEN 
IF BO880<l,J*3)<IMttK|N0 THIN 

BOMOU. JM-CMFTV 
B0A8D ( I* I . J« I M •IU( 1 MD 
FLAOi*FUVk*l 
OOTO 4M 
CNDIF 
CNOIF 
CNDIF 
OOTO 438 

IF BOARD (XO.J-3KIMMK1M3 THEN 
IF BOARD* 1*3. J MJHHXINO THfH 
IF BOARD (|. J-3> OUHKtNS THEN 
*OAADM*JJ*-C*FTV 
■OAFDf 1 *l * J-l M«BLKEH0 
FUUi^URO*! 
OOTO 4M 
CNOIF 
CNOIF 
CNDIF 
CX1TIF FU»8 THEN 

Ji-J*l 
C»ITIF J»8 THIN 

IIT 



CXIT1F FU(0>8 THEN 

CX1TIF I>1 THEN 
X1T 



CSC 

C3D 



BC99 ! 
BC73 



8C8F 

8CCC 



THEN : 



IF FLA0>B THEN BM 
<• IF THEM IB MO 

[1-2 
uoof 

J»-2 

UOOF 

IF BOARDII. J>« 

OOTD SM 

IF aOA80l|-l.J-l>-CHFTY THEN 
BOARDd, JJ»-«HFTT 
BOA HO < I- 1 , J- 1 ) » ^LRS« 

rLPOi-i 

OOTO 908 
CNDIF 

IF BCARD(I-I. J*I)-CNFTY THEN 
BOAFDtl- J)i-E«FTY 
P<[-1*J*IH- 



BCC3 


FU»»-#VAO«l 


8CCE 


OOTO 3S8) 


wr* 


ENOIF 


BOT4 93« 


EXITIF FUVDa TMB* 


BOM 


ENDClIT 


BM7 


J»-J*» 


•Oil 


CX1TIF J\1 THEN 


Mlt 


CNOCXIT 


BD23 


CHOLOOF 


BD3S 


CXITIF FU»)8 THEN 


8033 


BJBJKIf 


BOM 


1i*|*l 


•Ml 


CXITIF I»9 THEN 


80*0 


CNDEXIT 


BDOl 


CNOUBF 


BOSS 


IF n_AO»B THD4 988 


8084 


FLffli-4 


BD88 


n -a 


B89I 


LOOF 


BD74 


Ji-3 


•071 


LOOF 


M?D 


IF 80880(1. JkOBLNINQ THEN « 


BOM 


IF B0A8Dll*l>J-l»-CnFTT THEN 


•OAC 


BOARDd. JM-CMFTT 


BOM 


Dd*i.i-i>fautiMD 


BBM 


FLA0l«*VA0«l 


BOM 


OOTD 988 


BDOF 


EHDIF 


8DCI 


IF 8cMlD<l*l. J*ll««FrrV T>CN 


B0F8 


BOft8Bd» J> l -CI1PTV 


8C89 


BOMBKN i . J*i 1 1 8BJJ0JMI 


BCIE 


FLAOiiFLAO*! 


BE 39 


OOTD «M 


BC3D 


CNDIF 


BE3F 


IF B0ARD(1-1. J-D-CNFTV THEN 


BE4B 


BOARDd. J M-CNFTY 


BE37 


BQARD(1"I.J-1I iMLKtMO 


•etc 


FL«*-fL«hl 


BE77 


OOTO EM 


M7B 


CNDIF 


MTD 


IF BOAR0(l-l. J-i)HD^FTV THEN 


KM 


BCAKOd, J)i-CNFT¥ 


BEA9 


9Ofl*D<I-l,J»»>i-8LHlN0 


KM 


r„<i.r L «.i 


DECS 


QOTO EM 


BCC9 


EKL [ *■ 


BEC9 CM 


CXITIF FUO>B THEN 


BEDA 


BMOaiT 


•CDC 


Jl-J«l 


8CCD 


CXITIF JJ9 THEN 


•CF3 


ENDEX1T 


•EF1 


CMDLOOF 


BCFD 


CXITIF FUBJJB THEN 


8F88 


ENOElir 


•FBO 


1 i -1*1 


•FIB 


CXITIF 1)9 THEN 


BT2* 


EHDC » I T 


■F38 


ENDU20F 


8T2C 


IF FU¥B 8 THEN BM 


BFSB 


<* OHEOt FOR NAKIMO RUO» KlNM < 


arso bm 


■ ••3 


•F»T 


J. -2 


•FM 


WHILE J<«8 M 


•F7B 


IF BOA 80 1 1, J > -8LACX THEN 


•FM 


BOARDd, J» 1-BUffMB 


8F1C 


CNOIF 


BF8E 


Jl-J*3 


BFAB 


CNDMHILC 


BFAO 


C* CHECX FOR THE CMD OF OAHX *) 


aFcc 


FLA0J-« 


BF03 


l»-2 


BFOA 


LOOP 


•roc 


Ji-3 


BFV3 


LOOF 


BFT3 


IF BOARD «|.3)-44iITC THEN 


BFFB 


FLAOi-PViW*l 


IBM 


OOTD 9341 


IB87 


CNDIF 


IBM 


IF BOARD II.Jl«R«<lNa THEN 


141C 


FLAOi^UVH) 


1827 


OOTD 93B 


IB2B 


CNDIF 


IB2D 9M 


CXITIF FLA0)B THEN 


IB3C 


CNOCXIT 


1848 


Ji-J+I 


LB4I 


CXITIF JI9 THEN 


1837 


ENOEilT 


IP3B 


CHOLOOF 


1BSF 


CXITIF FUtt>B THkM 


1M 


CNOCXIT 


IBM 


n*i*i 


IB7A 


CltTtF Ht THEN 


IBM 


CNDCllT 


IMA 


CHOLOOF 


;•*£ 


IF FLAD-B THEN 


IBM 


FAfHT CHR*<27M ONMIMM 


18A4 


FR|NT -THE CONFVTCR WIM8Mf- 


IBM 


F81HT 


IBM 


FLADi-98 


laca 


ODTQ 8M 


taca 


ENOIF 


1BC9 


FLAfli-8 


18D2 


11-2 


1B09 


LOOF 


IBM 


Ji«3 


1M2 


LOOF 


IBC4 


IF 80880(1. J > -CLACK THEN 


IBF7 


FUVJ'-I 


1BFC 


OOTO 998 


1183 


Kl' 


UM 


If 80880(1. j> -audio then 


LILT 


FVA0»-1 


lllf 


OOTO BM 


1123 


ajHJNUP 


1124 BM 


til TIF FLA01B THEN 


un 


ENOCIIT 


1137 


JJ-J*I 


11*3 


OITIF J>9 THEN 


1I4C 


BBJMttl 


1133 


CNDU30F 


UM 


CXITIF FLAOJB THEN 


1193 


CNMX1T 


1188 


H-I*l 


1171 


CXITIF 1)B THEN 


1170 


CNOCXIT 


1181 


CMOLOOF 
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1199 
1111 
ILtl 
LI A* 
HAD 
IIU 
lit* 
11SS (• 



IF flAO-4 TUT* 

miMT 0«A«(27)I GHFSCMll 

PfllNf "YOU fcJlpJ I111 a 

PHI NT 

fLAQKH 
INOIF 



fll 



HOC : 
ILFi 

1211 
122« 
1238 
1?AA 
1233 
126*1 
1261 
I26F 
1271 
12*3 
120C 
I2A3 
I2W 
12CF 

120C 

12£» 

1ST* 

12FF 

1303 

1H9 

ISO? 1 

13*C 

13 20 3*** 

134C 

13&S 3*1* 

13B7 

13A3 3*2* 

I sea 

ESDI 3*31 

1V0 
1419 

1410 31B0 
:09 

|IM 

L*T2 

1*70 

1-fiH 

U«S 

149T 

1*99 

1*30 312* 

14*9 

1*00 
l*F2 

IMS 

1313 

X317 

131* 

131ft 313* 

1331 



1372 

1370 

ir.aa 

1343 

1347 

1339 

139© 314* 

IBM 

13C 



IF KMMX1-I. J>I)-*J4ITB TVeD* 
IF K»»(M.J»2>-tWrT TXN 
•1* J*l)»«fHFTV 
u<*-2p J*2m»bl«X 

BC»aDiI. J> ■-tfl'Tr 

Kl-l-2 
L**J*2 
OOTO 203B 
CMD1F 

EMDIF 

IF OOASD'1-l..f-n-MHIfC T>CM 
IF KMMKI-2.J-2)-lNFTV TrBTX 

■OAAD ( 1 - 1 . J- 1 > i ^rtFTY 

BOO HO ( |-2. J-2> i -OUeOt 

BOO RO C J. J> i -CMF TV 

FVAOi-fVOQ^l 

Kfl-2 

Li»J-2 

oora 2*m 

ENOlF 
INOIF 
l rMTUS* 

*- BLACK KINO u\H« KH1«0UT1N€ *> 
f IP BDflSOU-i. J*l>-W1TI THEN HM 
IF KUUtOfl-1. J*l)*4M<lM0 fKN 3lH 
IF BOAJtOU-1. J-il-^lITE THEN 312S 
IF PQR*DU-§- J-l»-*»*IN0 T«H 3l?B 
IF KIAflDCt+l*J*l>-t*l[rt TreEN 313* 
IF BOAJtDCI + t*JN-U-kS*<INO THEN 3L» 
IF tOWI0fl*l*/-^-HHITI THEN 3UI 
IF BOMDd^l.J-naUHKINO THEM 3141 
OOTO 32H 
IF SO*AD<l-2.Je2»nOlFTV THEM 

nasoci. JM-EHFTT 

BCArUK 1-1 . J+ I 1 i-CMFTV 

B0JM0U-2> J*2H- 

FUMH*FU»*l 

Ki-I-2 

L*->2 

OOTO 32M 
EHDlf 
OOTO 3St0 
IF BOfiHtHt-2.J- 

UDMOCI* Jh-cwty 

BOARD ( t-l.MH ■dJMFT* 
BQ»RL){ 1-2, J-2J i*tLKU«> 

ruoi-F\jaa*i 

KI*l-2 

L I - J-2 

OOTO 22— 
ENOIF 
OQTD SKI 
IF SGA'D Cl *■*•< J*2> -CHFTV THlH 

BOA ADC U JH-tWTy 

BOAHDt ItLtJtlM -EWFTV 

BOBrHH 1*2, J*2> i-ft-KlMO 

FL«)'-^-A0*l 

Ki-I+2 

Li-J*2 

OOTO 32M 
EHOEF 
OOTO U3I 
IF i»M9<U2.J-2)<Vn THEH 

bOARot:. j>i*EnPTV 

KWHD(UK J-nXWfV 



1SF2 
13FD 
ISM 
It 13 
LILT 
III! : 



DCI»2.J-2>t« 
*l 
Kl-I** 

U-J-2 
OOTO 32M 
INOIF 
I OSTUcN 



BIT Bucket 



WIVD&AL DATA ROEAAO*, INC. A^UyCC THE 
TOTALLY FLEXIBLE ROUTT WRITER it AMD 



DfilvirH] fane Research. Inc. today e/vxH*<c«d a 2t-2S% everts dccrHH In 
the prices Of sll applications software package*. UDRI rs*«9nia** the need 
Cor dependable, efficient bUBirwii eoftwere et c*sop»titive pclcea, «nd is 
■trivia? to mike their aoftwart a»re «nt)y available to the anal] and 
t*dli* sited twirwu by lowering price* and increasing the nut&mt of UDRI 
software deal era. 

Unlveraal 0»ta De»«arch^ Inc. also arvm^ced today the Report Writer II. a 
totally flexible report generating program dtalgned Co enhance the 
capabilities of Che UCRI Data Base KaJtager. 



Scan* of the Ceeturts available to the operator are; 

- headers and foolers for each page 

• a wrap-up sha«i for totalling col urns and euroasl as 

~ II «ccono)atori for any typr of »*tSenatica) function 

- qenarataa reports involving linked files 

- gtnsretes reports using a paster file or ita key file 

* inclusion or exclusion of print lines if fields do 
not met operator specified constrictions 

This program greatly increases the flexibility of generetiog report! from 
the sinpls to the cosplex. Data can easily be placed virtual ty anywhere on 
an output line, allowing the user to run reports on preprinted forts 
without the need [or costly softvsra custeaiiatLon, 

Report writer II is available for $180.10 on the Flex* and UntFle*» 
operating aystsns. Expect to see this shortly on the Color Bosputer with 
r)ex. Catslogus and cos^lete price lists are available on requeat. Dealer 
Inx^irlss are welcome. 

tor further information contscti 

\mVBG*L DATA RtSEAftCH, INC. 
Cynthia Dylls Wilson 
Director of Nsrketlng 
345? Hehrlt Drive 
Buffalo, W 14221 
016) 631-3011 

* Plftx vri ^irlsx are tradeoar^s of Technical Syetens CansuHsnts 
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ta*la%*4 !• four wipj of <&4 QUI II. ««r4l«A t. 1. *• «rt up4atln( »U «urr«nl u.»»rm 
Of 0»*« QUI XI (CIMIK vvrftlwt t,f OS-* L*v«l 121 X* \h\% ,<r»lc* *i SO Oh^rf, IT ttj 
or ]T9V^ rtiMn h«<« sol r«HtTM th»tr update*, plia ■ »**»♦ U»»« •OOltvt u» ttlraetlf. 

emu mt'wjuc.i th« <2n an wo* cru +)*n aad c&4 9is in. «*♦ tj*». Chi o^ra i» 

M «dv«aowl atllcn. ■p.fifi «iir lnt««4r4 tor ui« wlU) ■ulll^isar. •MtVl«<4»klMi 
oiMrillni iritM, :-i-f 9»I 111 1» M ■fihfl6Q«t OS^ U«ll IT Uul t#k«* ful) «<v>rt»4i 
of Uii rutifU of tht <m« CM 6oa^. lh« erica t«r um ooeaio«tlo« or CPU ooar* ud 
•«rt«ar« U »1AM.0t 

SutU « ■ •ultl-UF»r fSJ circuit kMM MU vlllllUa ntth-*|?**j. hi gh -4*n ■ I Ij 
letlc. tm ONI III *fOf CPU surd cirfiarw** (ha pW<H"a4M« or th« 7 nHi &6B0f br 
pmvt41i4 iy«a foaluroa a* niaji-*t>**d ( 1 ofA«^iqroa»cAad> MA biaok tranafara froe 
««aerj (4 ataw-r o" - Mi*tfn o««orT »fn3 E/0 0**Lc«* nu = h *• !h* wWII lnl«llL|tat 
J Port Vrial Lnt erf teal ana] *dT*r,i*d anaajerr tunattwiV vllh J( itpiiM tm tt«a«>n| 
attrjbtitaa. Tha board «hi lou 1 1 c* 1 1 r ftltritaJ PU c«fi t*q 1 1 fl o s+ii«*rt tha at\ bo*r* (Ma 
and atl«^Btl mi d*Tl#aa audi aa dlak central Ian. Trio it w*wp-*"r »»j»*fili ■11<^« vo^a 
arrtetaat e»«Br| uaaa*. Thm Ma««Nt att^tkwiaa alio* tM tr««el«e #r «ut^>r ■<#•«• 
■ leery nrirtAMI (la prat«cl ana uaor'a or i«a*<« mw^f trm *«i«a ««*M**d »T 
• aothar). wrtl« prctaetloa (to protect antraala deU aoa Brafrasa Tree eatfUMoallaai 
wtUoA eoulS offeot t&a mtiro aratoel, aocj e itar<i»*r« alefle «'-*: r^ctio* For »ertwar« 
dtb^ailtBa (em a Ihdlvlcvtl *M* 04*\» «tt*ovt *rr#ctlr.| otber uaara or taa*«). 

The So"rd p^eveet* the *i*Cuttot) of <ert4lv Hiatal laatrwctlona ffoe: crMMni lh* 
»raVae bP epnlterllvi lntarr^ate W the Se04 eeo Ita reapemaa to then Hneae 
inatruatleua ceuee the MO* to Ihk up Id. t iteta la ehloh it aoaa not raipond to ent 
inLerruata and no at be 'ihU, If the proceaaor dkrtl nqt raapana to an Velerrupl 
elthjn a. ip#elfle tie* i i?A clock erclail tue board rfirti tha b&S? dathtr da«la*a an 
the but era ->>t riHt) *ha eaae^ta a epeclel r« H t r«t«f , The ir»'-*» °*a then cl^a* 
jo*m tb« «rrtadtni t«al end raaune rmmel epe<-atLori [ether icH** Laak* «r* net 
arfactedJn Thsa alee tlalta tna lenftti of Use tnat laterrueta can raaaln aaatn* bf e 
uier h breventL 4*- uterd frsw k>eaing the aritea free tank awltehlnf erui tanrlclaa Other 
ilSrS« 

To furuvar' protect the ajitee froa the u*er». the CFU baera a^COFii aeberete wear 
•ai araten "etataa* »»t* auteejeti* e-ltahl^A to Me aratae Hate la rtipwiM to 
la\«rr»ate «nd arate* |M!| ealla. Cwtaie rvhetleaa wd eaenry araaa a«m only be 
t«CiJi*e4 la tha ayitna atete. pr »et inf wnltithof lt*4 MtMN«. 

alee Uelweod o* the naa» CPU ere ea Ln«*-e*ael f *1 1 fimetleB tlee-or-da? cloak 
{SC^H'D with rner tM auieesllt i«ep rti« aij.itt! «eelAf> tie* eerreetlan. ana a 21 
•c«-ete*bea m; bOtJi ettS Setter » boekwp HiMtri. fo prOrlee preeieiaa tlalafl 
runctlana 4 a 66»D PT* utu* a aeparata 500 tXi p^aciaian i.M^tl tine bete Dtclllater 



la tselueee'. The eseiliator la eeallp *w ■'aelaeaabla to ^ctlde other tlee beae 
rre*weeelee (7*0 UK mj. Taw tleala tricK aock.l nil accept 71. K ar M tPtcxe, 
ylth a eeilavJei or *K aeppee lAto the ayaiee eedraet apeee el a#rr oee tlee. aoftware 
•« t«hl«v| ll laelaeieated b7 aeleetlni tSe wpeer or lower half or en IS ITSON under 
hardware or eeftuara control. 



*7 leklea ed«eeta|a of tha Taet^aa or tne »l HI CrV, OoVO Oil 111 le feater. oa>re 
■eaer* efrlaieot. and e aort aeewre ewltt -*ji*r rauHl-*aaaln| oeeretlq dyaioa lAad flB-4 
OKI II. rrcai wnlch It If earn red. eblle <-ateUl*e eeaelet* a* ft -era aeaeetlbUUf. 
ThrauthSNt n »nhi--#! by tne eaaabO U eaadrP >4 and the ewieewtla teeS fwkle*ke|. 
White the eaachry el tribute! feed UleK*t 1 a al^uel I en traosln| *r«ttet the *y«tee> end 
Individual wiri fraa tocn oVWr. ahe*«le ariten aod«lel In a*M er* write er»t**t*a 
te ertfenl tnneerU|. neeery o*eain| ]a ft Mpmlf end the ability Id ledd andwlea la 
aen-«or.tli*oui San erorlM eere afflctenl BwavrV wtlll tetter. ueh imI eea be 
•lloceted e rull 4« of «AM. el to no cter*Uflt e>*iea Overhead In the teaka eddrcae 
epaee. Future plana for QS-9 o»j (ij tneludv n optional r.ardi*er* alMU it«»Pl«t 
OebujKfar. 
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CHICAGO COVUTCW **0OUCTfi 



*A KEXIOECIMAL TO DECIMAL UTILITJf 
♦FOR 6800 AND 68u9 FLEX DOS 



♦FLEX J»0 EQUATES 



N«N Froowct* Iditor 
Hi. ton* TIN 37*43 






Chicago CO«9ut«*- ^rotJuct* «^nflunctf (ho n*^ OrOducta. Qf»a i« * 
Four DjQit Oiam.y B4T«bo«Ml Mtle* ha* tr*a following ^tturvt: 

• *lu«a into on* 99-99 a)ot 

• Foot tfjQit aavan *a-g**cit LCD <*L«Play <^ICh »• canr*ct*<) to tn» 
SS~3Q ca» d by mmmn% &♦ m. tMlvi conductor cibban cabla 

• T»»a tig a i r>t» of *ach tfj«i»lay ara *«parata)y cantroU*0)t 

• Ot» display cone tailor chip 

» A*»»-*3ly ttnuil and da*oh*t r at i «n *«4t*a/-a * t *ioiti proviftM 

rho ath«r* product ii a control)**- bar«:vo with tha foUcamii 
(Mtwa*; 

• All OIDS » Ion poi*«r con«i«aptiort 

» lMi« trt- l«a*03£29 Motorola •» CrOprocaaaor for **»r*» thirt ara 
croaa it«M6ltrt availaftla by otnar B8~30 tuft luppliwt 

• 16 port lloaa, turn*, clock* 1"C and RESET J inaa avai labia at 
11S-30 card adca ctymKtor 

• 3 - 7k br ■ bit RAH or CPflOn. tt>» mumt b* Erffih. 

• AaaaaAly annual and diagnostic proof a** mdudod. 

The following was left on -the 68 MICRO JOURNAL BBS. 
Thanks Kent, 

Here Is something for COCO users wWh 64K RAM and 
double sided disk drives: You can make Drive 2 -the back 
side of Drive and Drive 3 the back side of Drive 1. 

With BASIC running In Ram type: 

POKE &HD7AC f &H41 (for Drive 0) 

POKE &HD7AD,&H4 2 (for Drive \) 

Now BASIC'S Drive 2 Is ihe back side of Drive and 
Drive 3 Is the back side of Drive 1. WHti this mod 
installed you can BACKUP your disks on -the normally 
unused side. This works wHh the backup In the same 
drive or on the second drive. It would appear to really 
work great for someone with only one drive. If that 
drive Is double sided* No switching disks* I haven't 
tried anything else using my new Drives 2 and 3 except 
COPY and DSKINJ. Good Lucklll 



Kent. 

KENT MEYERS. LE R0Y f MN 55951 

AT 2 

ERMCST STEVE WATSON 
11701 IT. CHARLES BLVD. 
LITTLE ROCK* AX 72211 



January 2, 1983 



Oaar Coot 



I am ancloalno. a short LSX2/9(tA> utility callad "MSADtX.TXT' 
fox publication. A* ita ammm lndicataa, it oonvarta a four 
cAaractar bavldaclaMl nuabar into ita dacl*al aquivalant. 1 find 
it vary uaaful «fe*n proaraomintf in XAAEIC and naad to PEEX or 
POKE aoaa daciatal location for which X know tfta baxidaciatal 
aquWalant. It can ba callad whila uaiog TEC* a XBASICfta} by 
ualno tba •<" 



I alway* look forward to racalviao '61* Micro Journal. TnanXa for 
as axcallant publication. 



Vary troiy yours. 



y^JEaLs 



(■FLEX and XBASIC ara ragiatarad tradaatarfca of Technical Eyataaw 
Conaultanta # lll Providanca Road, Cbapal Hill, ■. C» 27514 
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COlE PSTRtfG EyiJ 

CDlH PUTCUR EQtl 

CD IS CETCHR EQU 

CD03 UARMS EQU 

CD24 PCR1P EQU 



C100 

C100 
C102 
C104 
C106 
ClOfl 
C10A 
C10C 

el uii 

C10E 
C113 04 

Clll ML 

C117 BO 

C11A BJ 

CllL MX 

C12Q ED 

C12J BO 

C126 ED 

C129 BD 

C12C 20 

C12E II 
C120 22 
CI32 II 
C134 25 
CI li 39 



ttOKUH 

LONUM 

TEMPO 

TEMPI 

TEMP2 

DVPN 

DV6* 

RHSDR 

OUT 



C24B 
COlE 
CD^4 
C2fl0 
CD1E 
C 24 
COIS 
C12E 
30 

46 

05 
Jo 

01 



C137 
C13A 
C130 
C14J 
C144 
C14* 
C14C 
C1S0 
C154 
C156 
C15A 
C1S0 



C140 
CD1E 



8E 

BO 

7E CO03 

45 4E *4 Ai 

52 20 4F 4t 

4C 5V 2H 4B 

45 5B 4* 44 

45 43 49 40 

41 4C 

4E 55 40 42 

45 52 53 

04 



CI 51 B7 
CUl BO 

,Ci«4 bo 

Clb7 B7 

ClbA BO 

.ClbD BO 

CI 7- B7 

C17 i BO 

,C17£ BO 

C179 B7 

C17C flL 

.C17F BO 

C1I2 B7 

,C1«S BO 

CI 8B B7 

,C11B 7E 

ClBJ. 12 

clip Ai 
c II to 

Cl^3 IP 
C196 JO 
ClSfl At 
C19A 10 
C19C 5f 
C190 51 
C19E 5« 
C19F 58 
ClAo J 4 
C1A4 JO 
ClAi 39 

C1A7 H 

,. .A • §0 

CIAS 81 

C1AO 2B 
C1AF 80 
C1B1 3» 

C1EU BF 
CIoj JO 
C1B7 JO 
C1B9 30 
CUB 34 
CiBO B7 
C1C0 P7 

C1CJ i« 

C1C5 17 

cici aw 

4 C1CB BO 
CICl. BE 
ClOl Bb 
C104 MB 
C1D* A7 
C108 10 



C1M 
COl5 

C12E 
ClOl 
C015 
C12E 
C102 
CO 15 
CUE 
C10 J 
ClOO 

cut 

C104 
CUE 

C10 5 
CLIO 



84 

14 

1910 
01 
84 

OB 



04 ABLvi 
01 



ORG 

RMB 
RMB 
RHB 
*** 

RMB 
RMB 
RMB 

ana 

RMB 
FC 

LOX 

JBR 

JSh 
J5F 
JEft 
JSR 



TEETHEX CHPA 
BUI 
CXPA 
BCS 
ITS 

ERR U>X 
JSR 
JMP 

&RRMSG FCC 



pee 

KEXNUH ETAA 
JER 
JSR 
STAA 
JSR 

soot 

STAA 

JSR 

JSR 

STAA 

LOX 

JSR 

STAA 

JSR 

STAA 

JMP 

ASCBIN HOP 



COlE 
*C01$ 
SCD15 
$C003 

$cd;4 
scioo 

2 
2 

2 
2 
2 

2 
1 
1 

5 
4 

4H5C1 

PSTRNC 

PCRLF 

#MSC^ 

PSTR^G 

PCRU 

GETCKH 

TESTHLX 

NEXKVH 

• $46 
ERA 
1*30 
ERR 



PRINT UaVuiER 



PRINT INSTRUCTIONS 
GET BO ASCII NUMfcCa 



TEST FOR GREATER 

THAW »F" 

TEST FOR LESS THAN 



IfiRBKSC 
FSTRNC 

HARKS 

"ENTER ONLY KEXIOECIMAL- 



•HUKBE S" 



BSR 
TAB 
IHX 



BSR 
ASLB 

ASLB 
ASLB 
AS LU 
ABA 



UOKVill 

GETCbR 

TESTHEX 

ttOtfUWl 

GETCUR 

TE6TMEX 

LOWOM 

GETCHR 

TESTHEX 

LOMUM+1 

IBOtAJH 

ASCBIN 

TEMPO 

ASCBIN 

TEMP0+1 

GORNO 



CVERT 



X 
CVERT 



STORE ASCII 



CGWERT ASCII TO m.iAtH 



7F 
Jw 



02 



C106 

01 

02 

01 

CluA 

C10B 

0A 

C10C 

C108 

C1PB 

ClOl 

ClOO 

30 

84 

IP 



CVE1T 



8UBA 

cm 



SUBA #7 



• I7F 
l»30 

1X0 



STX 


TEMPI 


mx 




ivx 




IMX 




IWa 




BTAA 


OVDN 


ETAB 


OVON+1 


LOAA 


I1U 


STAA 


ovsa 


ETX 


TEMPJ 


JSR 


OIVBY 


LOX 


TEHF^ 


LOAA 


RHNJfc 


ADDA 


tsio 


STAA 


X 


OEX 
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C10A BC 

GlDD iC 

ClOF BE 

C1S2 3a 

C1C4 30 

C1E6 JO 

C1E4 J. 

ClLA JO 

Cl£C 39 

ClLU 1L 

cuj bo 

cifj f* 
.cir6 bd 

ClF* 20 

C1FB 7 J 
CUT BE 

C201 iu 

C2 01 B6 

CiOG BO 

C209 2A 

C20B 1C 

C30D 20 

C30F a? 

C2U U 

C214 79 

can 7» 
calx 30 
caic 27 

C21E 79 
C221 iU 
Ci2J jy 



C224 «E CiS*t 



C106 

£9 

C106 

01 

01 

01 

01 

01 



CltJL 
Cli>4 
Cl*5 
C1U2 
29 

C10O 
0011 

oa 

C10D 

cioc 

04 

TL 

OS 

C10D 

01 

ClQB 

ClGA 

IF 

05 

C10D 

£0 



C227 BO 
C32A lb 

C22C BD 

C22F *L 
C212 BO 
C215 BE 
C2J* B» 
C21B BD 
C21E BO 
C241 II 
C243 27 
C24S 7L 
C240 7t 



CDlE 

20 

CDlE 

C10E 

cole 

C2B1 
CUiE 

coal 

CD15 

Ou 

0) 

cm 

Ci>j3 



C24B 
CJ4F 
Cdbl 
C2S7 
C25B 

casF 

C^43 

CJ&7 
C26B 
C2IF 
C27J 
C277 
C27B 
C27F 
C2I0 
C2I4 

caiB 

C290 

cas« 

C2M 

Ci>« 
C29A 

case 

C2A2 

ca>« 

C^AA 

GJbu 

Cibi 

C^m5 

ciao 
caci 

CJC5 

C2C9 

cacc 

C40G 
C2D4 



49 di 

S4 4F 

45 4J 
41 4C 
4F 4E 
54 53 
4E ao 

45 41 
53 ao 
59 49 

43 49 

4c ao 

4D 4a 
04 

41 4C 
59 53 
4i 54 
20 14 
49 47 
S3 
04 
U 41 

44 45 
40 41 

45 51 
Sfc 41 
*E 54 

53 ao 

04 

45 4L 
52 20 
52 47 
<F 20 



59 20 
20 44 
4* 40 
20 43 
55 45 
49 4F 
2D 20 
54 45 

48 4 5 

44 45 
4D 41 
4E 55 

45 52 

57 41 
20 45 
45 52 
2Q 44 

49 54 



45 20 
43 49 
4C 20 
55 4» 

4C 45 
20 49 



54 45 

a? 43 

20 54 
51 f>J 
49 54 20 4F 
52 20 53 50 
41 43 45 
20 54 4F 20 
43 4F 4L 54 
49 41 55 45 
04 



CM 
BCE 

LDJC 
1H* 
I NX 
IHX 
IMX 
Htt 
RTS 

GQRXQ LDX 
LDAA 
LOAB 

Jbr 

BRA 

OIVBY CLR 
LOX 
BAA 

LOOPl LB** 
SUBA 
BPL 

RESTART CLC 
BAA 

UREST STAA 
SEC 

MERCQ ROL 
BOL 
MB 
BEQ 

Htt 

BRA 
RTN RTS 

PRTMS LDX 

JSR 

LDAA 

JSR 

9 OUT LDX 
JSR 
LDX 
JSR 
JSR 
JSR 
CHFA 
gftj 
JHP 

OOW JHP 

KSC1 FCC 



TEMPI 

LOOP 

TEMPI 



I OUT 

TEMPO 

TEMPO+1 

BHASC 

PRTMSC 

BTfltOR DIVISIOK AMD 

417 REMAIUDE* 

RESTART 

RMNDR 

OVBR 

WREST 

MERGQ 
RMNDft 

OVDN-fl 
QVDM 

RTH 

tXKDft 

2X»F1 



IHSG3 

PSTRMC 

1420 

PSTRMC 

• OCT 

FETRNG 

4H5G4 

PSTRKG 

PCRLF 

GETCHR 

l»wQ 



START 
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In July J 9B J r I decided to 'fwl ■round" with UKtFUX. Ve had enough memory 
• nd alto the CZF&- 1 Herd ditk. *» 1 plered (he order. About thtee weeka later 
a package arrived through Canadian Cuttont and UK1FLEX vse In. 

Ue quickly brought up the ryeteo and it worked beyond our empectallooa . 

However, with only two l»-houae praducilon ayateeis , our client. ha«e operating 
under tlXX and four pro»rA*feera to ahere the ayetea.a, vm required trutt hqth 
ayitete be rwnolng under FLEX. What a pain! I Opening the ulnMiM, 
re jumpering the dlak conlrojle?, changing Ih*. Bonlto? and aovlng the conaole 
I/O froo SIOOO to 1&004 each Ua«. 

1 iuherqiirtT. : ? d l • c ... v* r*d that the rvjutiperlng vat not required. 

A partial aolutlon vat arrived at In August 19BJ. A twitch w«a Installed to 
allow u» to aelecl either S-»VC or t'KIBUC. t took apart th* S-1UC rom ttMJ re- 
addreaaed the 1/0 vector to St 000 , patrhed aott of our eofiwtr* which didn't 
go through FLEX for I/O (not ouch of that) and installed a ewlich for 
■ electing aionltor rom*. It worked and worked well. But V.C.S.D, Fatcel, 
Advpfitura and aoaa other minor <co ua) aoftware did oot work, not to mention 
chat ] would be at the oercy of all lul^r« aoftware for patching. 

One of the prograeieieri auggeated that perhepa It would be an Idea, tlnce 
CNlFitX eoftware hae no direct ictfll to hardware, to patch UM1FLEX /or 
conaole operation at 5C00* rather than all of out FLFX aoftware* 

Velng DYRAH1TE. I found the I/O vectore for the LN1BUC roe and then re-burned 
it. Thie brought up it* wonitar meaeagv on 'ttyOl'. Than I Interchanged th B 
namai of 'ttyOO' and 'tiyOl', It worked - *ic«pt lhat the herald *r»tagr 
tllll case out at itOQO and our caaka were wTongly Identified at bain*- run 
through ' ttyOl'. while all other utllillaa pointed at ' ttyOC*. 

The operating eyatam he* aome falrlv aophieilraced protection a^alntL maktng a 
1 copy of a Copy* ol the UMlFLCX program, ao wv have built the following tingle 
byte patch into our 'crdltk' utility. The P*tch le written In battc for mate 
of loplloentat Ion and It Inserted Into the 'crdJta' utility juet alter the 
'copy unlfleve /u»r2' line. It la valid for I'KlFLEX version 1. 06. 

10 open "/uar?/uolf leu* aa 1 
20 poaltlon #1. 156*1. mode 
>0 print «l, chr*t*>; 
40 close I 
50 alaap 10 
40 exit 

Thie byte and Che one previous to It point to the port addrea* where the 
herald meiaagc la written. 

One other problea retained, eloca recusing the I/O driven wai unacceptable, 
Che ' /etc/lnlt* program was patched to brlrui up 'ttyOl' aa the conaole inttead 
of 'ttyOO*. Trt^a patch vat done on the auppllad OKIFVEk matter disc- 



10 open "/etc/tnlt" as I 
20 Position #1, 707, node 
30 print II. "1'i 
40 close 1 
JO os it 



MSC3 



FCB 
FCC 



FCB 
FC 



FC» 
FCC 



"EtfTER UEXIDECLKAL NUMBER* 



'ALWAYS ENTER 4 DIGITS" 



•THE DECIMAL EgUCVALaWT IS 



•EWTER *CR* TO QUIT OR SPACE' 



Thla apacl/lea chat 
entered. 



ItyOP will be brought op when ths single user mods Is 



Thus, rcburnlnf tha UKlFLtX monitor rom n deecrlbsd below. Installing • 
■witch to select monitors snd running the sbo>e programs will allow for tEOOt 
to bo uaed ae the coniolr for both FLEX and UNI FLEX aa well mm. allowing for a 
dual operating eysteai environment, selectable el tha flick of a avlcch arvi the 
push of a raiet button. 

Fetch Table For 0S1WC rosi 



Addr 


from 


to 


-^— ^ 


•m— — 


— » 


0620 


00 


06 


063b 


00 


04 


06 JC 


01 


05 


066S 


00 


<>4 


066F. 


01 


05 


0676 


Oo 


04 


067s 


00 


04 



FCB 
END 



■ TO COOTIUOE* 

4 
START 



Addrataee are in has. offset from *$OO00» in tha ro«. 

Should enough interest be generated in the modification to allow for talecelng 
eonlcor romt . 1 would be happy to generate another letter in chle regard. 

ly the way Don, In chr February Itsue you ssksd for reviewers for OslFLEX 
■ oftware. I wouldn't mind being one of tSote pouple. 

Sincerely r — 

P 

Iran Frsnk 



■ran Fra«m, vice prasldsnt 
lot r i gum/Co ajpo by c e 
2SS Dufferio toad 
Ptontraal, Canada 

{514)487-7111 



February 2. I*C3 



Vs hsva owned Soochveet Tachnfcel Products Equipment tinea 1975 and baa a bean 
running FLEX Cits prsdscssiort pravlou* Co thai) atnc* 197B. In 1980 urn added 
■n S/09 mainframe to the ayslam snd rabought most o( our FLEX aoftware. 

The orlgioal itxts has run flawlessly for sll thete years with tha eingular 
sscspclon of e pslr of diodes in tha original msinfraate wnlch flamed whan ma 
hit 56K of high current static raa. To ba fair, Souchveet warned ue oot to 
try it. but I did aoyamy. 

'68* Mtero Joomai 



SUPPORT YOUR 
ADVERTISERS 
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THE COMPLETE BUSINESS SYSTEM 

+ Multiuser + Highly Expandable Cost Effective 



S+ THE CONCEPT 

The S+ system is a modular computer system in 
which all portions of the hardware and software are 
designed to work together in the most efficient way 
possible. An S+ single user system with floppy disk 
storage is a competitive and cost effective entry level 
system. Unlike most other small computers being 
sold as "personal", or "small business" machines, 
the S+ system may be expanded to maximum 
capabilities using this same hardware and software. 
You cannot end up with a OEAD END system that 
cannot be expanded and whose software is not 
compatible with larger machines. A basic S+ system 
may be expanded to thirty-two users, a megabyte of 
main memory and hundreds of megabytes of hard 
disk storage by simply plugging in, or connecting the 
desired upgrade equipment. 

TOTAL OESIGN-Hardware and Software 
The S+ system is an integrated hardware and soft- 
ware design- The two complement and enhance each 
other in this system. The UniFLEX® operating 



system used in the S+ systems is patterned after the 
Bell Laboratories UNIX® operating system, one of 
the most admired and widely used operating systems 
in the world. Instead of being an afterthought, the 
software is part of the design of the S+ system. You 
can be sure that with this approach that all parts of 
the computer operate with maximum efficiency and 
cost effectiveness. 

THE CENTRAL PROCESSOR 

The basic S+ system is configured with 256K bytes 
of memory and can be expanded to more than 1 
million bytes. An efficient and fast hardware 
memory management system is used to allocate the 
available memory among the users on a dynamic 
basis. As little as8K bytes, or the entire memory— if 
needed— can be used by any individual user. This 
makes it possible to run very large programs on the 
system, but it also uses no more memory than 
necessary for a particular job. The increase in cost 
effectiveness of this system over crude and outdated 
bank switching arrangements is dramatic, 
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The central processor runs in both user and super- 
visor states. It can detect and reject a defective user 
program, ft is impossible for a user program to go 
bad and stop the entire system, as can happen quite 
easily in (ess sophisticated systems. 

Task switching is accomplished by use of a multiple 
map RAM memory, with sixty-four individual task 
maps. Each task can access from 4 to 64 Kbytes of 
memory. Multiple tasks may be used in programs 
that require more than 64K bytes of memory for 
execution. When a task is completed the memory is 
automatically released for other use. 

SOFTWARE 

The S+ operating system, UniFLEX® is a multiuser, 
multitasking operating system based on the UNIX® 
operating system that has been used for many years 
on Digital Equipment Corp. PDP-11 series minicom- 
puters. It is considered one of the most sophisti- 
cated and "user friendly" operating systems avail- 
able. Variations of UNIX® are rapidly becoming 
standard on mini and larger microcomputers. 

A large variety of languages are available for use 
with the system. These include FORTRAN, 
COBOL, BASIC, and Pascal. Word processing 
packages are also available to give you full text 
processing capability on the system. 

Applications programs are available in large quanti- 
ties in many fields. This includes general business, 
medical, dental, veterinary, library and real estate 
management; plus others. Since the system is 
multiuser it can also be connected to cash registers 
to produce a point-ofsale terminal system combined 
with the computer. The possibilities for application 
of this system are endless. 

THE I/O SYSTEM 

The S+ system is totally interrupt driven. All ter- 
minal and printer I/O devices connect to an I/O bus 
separate from the main bus. Up to thirty two 
separate devices may be connected to the I/O bus at 
any one time. If I/O activity is great enough to cause 
an unacceptable slowdown in system operation, a 
separate I/O processor can be installed in the 
system. This plug-in option removes all I/O handling 



overhead from the main processor and allows 
operation of up to thirty-two external devices at 
9,600 baud. Without an integrated total design, as in 
the S+ system, it would become impractical to use a 
UNIX®type operating system in a situation with 
heavy terminal I/O activity. 

DISK STORAGE 

A wide range of disk storage capacity is available for 
the S+ system, from 2.5 Mbyte floppy disks to an 
80 Mbyte Winchester and many sizes between. All 
disk controllers use direct memory access (DMA) 
type operations to maximize data transfer and to 
minimize overhead on the main processor. The 
Winchester disks also use intelligent controllers 
along with DMA transfers to preserve the perfor 
mance that these type devices are capable of giving. 
Without this distributed intelligence the system 
performance would be greatly degraded. The 
UniFLEX®operating system is designed to work at 
maximum efficiency with this type disk system. The 
data transfer rates achieved by this combination 
rival those of large minicomputers. 

COMMUNICATIONS 

A high speed local network communications system 
is available to interconnect S+ systems. The VIA- 
BUS® network will allow communication between 
systems at data rates of over 400K baud. Such a 
system makes it possible to share data between 
local systems in an efficient and low-cost manner. 

AVAILABLE SOON 

Tape backup— 20M-Byte in less than 15 minutes on 
a standard V* inch cartridge. 

Mini-Wini— 5 and 10 MByte Winchesters— bV* inch 
package. Winchester performance, for smaller 
systems in a small package. UniFLEX® com- 
patible design. 

Large Capacity— 190 and 340 MByte Winchesters, 
plus SMD cartridge drives. 

UniFLEX is a registered trademark of Technical Systems 
Consultants, Inc. 

UNIX is a registered trademark of Belt Labs. 

VIABUS is a registered trademark of Southwest Technical 
Products Corpomtion. 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

21 9 W. RHAPSODY 

SAN ANTONIO, TEXAS 7B216 (512) 344-0241 
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FAJCT1CAL «m.IcmiOH «f a maWUJOVTE* ACQUIRING > MK »f2/\^v 

Vtlllte A, Cowr 
A\ 1 Bom 4J?<< 
CA[*\CtJ^«.kw 4U?9 
G04>739~S4Je ND* M 



Tha ru i u aa ©r U>i& vticl* i» Co aa < yHt/iu a practical 
wlkiiipn of uw Crrv>OG» AEhOJtv capability of • SVT» t*««o 
*JB9 &\j * FLEX COS i^K*. TSm follcwrr^ »irurw* will M uw«x 

A> LIST THE SVSTEJl WIW a**V SOTTkMls COHT IGW?*T I<X 
•> OEXIMI T>* FOpBLCN OF OS 1*0 THE SVSTEW «N9^ *»*- 

CXTENtO fWV CONTiaJWMON. 
C> C U>wa EtCCUTJON T|*ejs WITH A* WlTHtt/T USE OF EXT»y««D 



A> IMIMM ANT' 5<FTwW*E «>* 1 a\*NT10M. 

a? cm - sura rs>-e*« with ic-9 installed *t- i.» w: coo 

t>> ifJTNEA **>*» - ELECTA* 

«> ro^-cxn>c>cr **> «wv - soutneam mew) on-o-a 

d> EXTEND© NXnCAV BXMAL 01 - TXTVS 1NSTW S-O^ •». 

• > EXTEjCXd n*TOPv gfiARO c£ - DIGIT*. «U1CE & DESIGN 0&> avA-33< 

f> DISK OMTWQ.LP - GlNlX if WITH 1771 

■> DISK * SlErEHS FOOlO*^ SINGLE Sis* SIIIGLE 0EN51TV 

n> oos - gihik fle* 1.3 

l> EXTENDED «V«Orv MIKP - UPISk 1.3 



Cn I 



riNlTlOH 



T>C DOT*. FILES K1NC NJIIHTAlNED Uf*E 190* MS* aEtTQFS Ik 
%t3K WJth tW OPY BECOTC* EACH »SUIE€r> 1KT0 IP S€^E^8TT> FlELPS. 
T»C AWOLUT 0* WHOA".' AVAILABLE FP* 8M TQF CAT* INft&K Sv^Ttrt 
WILL NOT ALLOW PLACING AH. TMl OATH 1m NXXtffV AT CX TlnE. THIS 
OH PC A BsYJAl *«a8Lt*1 IF VOU A*£ CgHSTPwTLv USING T>C "XJ" 
FIWTUAT. OF THE F\J* EDITOR TO EXAHIME THE POATlON OF l*TH LEFT 
ON THI OIS* M 1 WAS. THIS iWfiSfV- OFEAhTION T0» 1 hUaJTE A»C> 
90 SCONOS 

THE SECONP mJOA FVOCvEri WAS THAT 1 W*» USING TSC SCAT f*j»Gf 
TO *E»F0AH * LAWCE »*»*«* OF S0AT5 ON ALL t*TH FIlES. A TVFltNt 
SCAT AftOCCrcftE TOOK » \* 9 HINJTES, 

> O^OfllOi TlhE O»**A*I90M3i 

TirE CWflOC UEAE TA»IX OX fee*IPVAJ»TIO* OF A DATA 
FILE 144 OtSX SECTOAS IN lEXTN CONTAlHING 651 aXEXS^S 
THAT UE*E DJulDfD INTO 10 fcVWTX F1EL05. 
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WTATllfc 01 S> 

» of EXT METCAV 



E7W1IHE LAST OaTXSO 

SDoTT OffTA FILE 

EfclTO* S*M ^UtTI94 

a^y FILE 

fWJT*-fOl DISK OR10E 

TO-r«^» vi»n*t. disk 



1 HIN 4« SEC 
1 HIN « SEC 
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COMPUTER SYSTEMS CENTER 

13401 OiA^ BCVO. 

CH6TCWEID. MO. 6»lt 

(Jf4j 574^020 
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Errtctlv* lat*«dlat«ly, DtMACALC. our popular Electronic 
Spr«ad-Sht*t Pro|rt» for 6609 conputers, la available for OS-0, 
ayatioa. 

Tha FLEX and UnlFLEX varalona of DTNACALC haw bean 
acclalaed by hundrada of uaars alnca their Introduction laat 
auuer as THE aoat uaaful place of software ever produced for the 
6609 Bicroproeaaaor. 

Now ultra of OS-9 (tradaaark cf Xlcroware end Motcrola) 
ayateaa, both level ont and level two, can §aln all the beneflta 
■ada poaalble by DTNACALC. 

With DTNACALC, computer ISERS (r«Qt Juat progrannara) can do 
Juat about any kind of computer operation, fro* alaipla invoicing 
to cQBplex general ledgera. Hq prograanln^ akllla are requlrtd 
to ust OTNACALCf 

Even If you are an experienced prograoaer, you still gain by 
uaing DTNACALC, 93 aoat Joba can be dona In aa little aa ten 
percent of the tlae required to write an equivalent prograa in 
BASIC. 

Thoaa of you who aell 6609 computers will benefit by 
deionatratlng DTNACALC with your hardware. DTEACALC is ao aasy 
to use that your equipment will really ehlnel 

DTNACALC la aiallar in operation to VlalCalc (tradeoarx or 
VialCorp), which runs on Boat paraonal computara. VlalCalc haa 
aold hundrada or thouaanda of aaall computers for Apple, 1BN, 
etc. Now DTNACALC, conalderably aere pewarful than VlalCalc, 
sails 6609 hsrdwsra. 

DIEACALC ror OS-9 Is prlcad st only $250.00 per single-CPU 
license tapeclfy 5" or 6" dlakette), and is available froaj CSC at 
tne above addraaa 4 or froaj your local DTNACALC daaler. 

Dealara, pleaae Inquire sbout selling DTNACALC in your 



GEORGIA INSTITUTE OF TECHNOLOGY 

eTXOOlO* tiOVOOY • ATLANTA. Gt0*GlA »tt3 ♦ <«0«| B»4JT»/»» JttJO 

Daar Kr. uillUa»i 

0oe of Che preblee* vitti tHf S-50 »ua U the lack of apadallcad 
iqiarfacaa. Do yov kno* of any aovrcea for a video caoera p r ie%E-4SB 
Interface to the f-50 bua. 1 »»av f n»c aaan a eldeo caaerra Interface 
advartiaad aad way have to go Lo an S-100 bua for wy neve laboratory 
coepoter, althoMth I Ilka •> GiKIX with 0S-« and Aaelc 09. 



■epa yew can help aa. 



laae ragarde* 
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David B. DUaanhery 
AaaocLite Frofaaeof 



« tHia aaTti* it M»ia*M tp ort*»ja TMtNOSLii 
• Mttm itt».d v HiaHwtBHTio i* atria i 1 ***!*" 
. "i rJ iflSpT t«#. laaws w thi «a «cao JU 
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■ at terra in m* ararui 
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f*-. Don Mllliape, 9r. 
•Ofl* tlicrojournal 
P.O. Bon 049 
HlKSOn, TN 37345 



Daar Don. 

I would lias to thank you ior taking up tha cudgala on ay behalf 
recording tha difficulties t nmm having *lth tha Logical Davlcee 
0109 CF>U cord. 

Not wlahlng to appear out of charACtar, I ao quita plaasad with 
tha 6B0S HI du I a tor that Coaputer Byatana Coneultanta ealla- It 

haa pro van very uaaful In debugging 6803 progreme before thay are 
run In the actual oymte*. Since ooat coaiputar prograa 

docuoantatlon la e oyetery to «>ei I CAllad Or. Paaa for help 
regarding hia aoftnara, and ha Haa ooat helpful and patient. 

gtnceraly, 

Jeffrey n. Craig 
Apt. 912 - 3001 6. King Dr. 
Chicago, IL 0O616 

word's worth 

P,0. Boa 2886^ 

OallM.Tsaas 76229 

I314|33l-t3ftf 
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Urry viniiu, Bxaeutlva gdlter 

'£i* JlipxA animal 

9900 Caeeeodra ^aitb 

Bos Mf 

Blxeon, Taaoaaaea JT343 

U> 1WM (801 AULL-e OOWILEI 
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I haaa juat reelatad s copy of s a8Q9 SaolUC oeopiiar fnoa> Das Evarbart 

la VssblOfteo. It look* pr.tty goo dr ^ the doouaastatloB la val^doae, 

Although It doaen»t hat a 
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aseept tbat bla photooopier waaart quite uP to pe r 



•11 of it* faeturai of Middle-C, It l« at ill quit* idtqoiti. 

The really oaet tbio* ebout tbla oo.pl! «r la that It 1X0990 SOOtCt OOOt 
4*0 19 1* TtCf rvetIC OOHAltf. Oeo baa vary tanaroualy offered to ebere hie 
work vitb the reet of the 6809 r>n ■mlir 

I« oroer to (at areuai tba doeuoeetatloa problem., I Leva arranged 10 f*t 
tba dmnaaeat 00 dlak. aa4 2 wUl probably dlatrlbnta it either on a eePi ate 
dlak or have It typeeet, 

t talked at eoee le«o*A with baa to aaJat absolutely euro ha oldo't mind ee 
dlatrlbutlns It, aod ba told ao that all ha wanted wee eredit for tba 
adaptation — ao, bora ipeal I will be diatrlbutlog ibla oompllar P«oke** 
(I»va dubbed It rW-C for fublio Oomela Joall-C) for |«* including oboloa of 
eeparate dlak or hardeopy for the oaaiaI . rleeae apeolfy dlak alia, Make 
ohaok or eooey order out to Vord*a wortA. 2 lake HC aod tiea, boi a $1 
baodlla* oharAe will bo added to oearf* card ocdere for tola packet*. 

r&3-C vaa writ tea to uao tba afTPC opUalalad eaeemhler A3H09. I bare aot 
rat had tba tlaa to adapt it for TSC'a eoeeabler* our new ralpoatiof 
eeaeebler, or aXOAP, but I darinltalr plan to. Hi*. ftvarhart la aa oiperlancad 
Oalk vtar, aod alb rwo-tlae library definitely haa tba flavor of tba Qoix 
•nvlrotmmnt . 1 ecpeot it to ba a rail joy to work with. 

for turtbar Information 00 tbla or otbar proftraaa lo tba Word' a North 
hibllo Domain Library, latareeted paraooa ahoold aaad a #10 aisi to tba above 
■ddraaa. I uaa ao eOeverlng eervlee, ao aa SUE la aotualiy nnre dependable 
the* a phone oall, I poo't know what It 1 a Ilka cleevhere, but a coed 
anawerlnt aorvloa la bard to 000a by ereuod haral Alao, due tba volume of 
oall I get, lnqulrlee vlthaut dial • a ara aooatlaaa aybjaot to oooaldoreble 
delay. 




rekleten'a pxeaeat Lnvaatmant clleeta wee pivotal in the 
deoleloo to proceed with tba Joint tentoxe. Aa aic liawmfl, 
treeldaat of monk* flffnol, etatee. The descma traced erovTaee 

of the country wader tba ge*armeant of Prejldent tla-al-Hai 
and tba govarnmaot'* active ancouraOemeAC of private laduatry 
makae rekleteo tho prafarrod choice for location la chit titan. 
Alao, tha ooltod ftataa 9ov»rrv»~«t aocmureeee lA«Mta«it to 
Pekieten vlth investment inearence provided chcoueh tho Overes** 
Privets Sovaacooot Corporation. ■ 

rekleteo fc^potara Limited it currently eettlog «p offlooa 
tbrol*9bowt 9aklatao. Mr, Mtahtiq irraall* tba C^Ovp KaAagia9 
Olroctor of aa w i co hlactronlca, haa alao 4*valopad a oarkatio^ 
Ptotraa for ftaudi Arabia aod otbar Calf coaatrlaa. oocauaa tho 
onapatar aoftvara will oparata lo Urdu aad Arable laaejooooa, 
aa wall aa lo tagliah, th. O^apwtara will ba adaptabl* for uaa 
lo varlad boaln««« raglooa with alpLiawl tralalng. 



ro» rmrrua SMrohJUTioai, »lum cowtact* 



Mr, Mo haaaaand 
Pcaaidaot 

■ooka tignal 
3U14 Via Collnaa 
waatiaka viiiaaa, c* IDia 
tal« JJlJt IMwfjiO 



Mr. Maaroor Blahi Aao 
Mana91nq Olraotor 
Ma-«co tlaotroalear Ltd. 
301 vol fovara 
X. I. Chundrlgar boad 
P.O. bo, 5134 
Karachi, Vakiatao 
tali 201104 
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6809 CASSETTE EASED SYSTDCS USEES 
Yaa, I'm atlll ualog a caaootto baaad ayacan, and Vm auro tboro 
anaat bo otbora out ttwro. I'd Ilk* Co hoar froa tho root of you, 
aapoclally about whoro you'ra flodlni ooftvara. I'd llko to do 
tho followlnft Sond «o abort doacriptiona of aofcwara you'va 
found available <advanturo faoaa. word procoaalnf. odltota, 
i„^bi«ri, lan|ua|a«. whatovor). along with tho auppliara addraaa 
and coat. Also aond an S.A.S.E. I'll collect che deocrlpelooa 
aod run off a ovlol -catalog" of aorta. Sound Ilka a good ideo? 
Vrlta bo it: 

Mlka Jobnahoy 

707 Oootloootal CI re la. #1213 
Mt Vlaw, CA 94040 
(415) 967.2048 
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vwiittaka VtHaga. Cti\htrnU W*3 



news release 



row iwot&iATi mmt 

AHMICAii. FAHtltAMl TUMI FQIW JQIlTt VPtTOM 

saoka ftl9nal broadoaatlAO, too., of Waatlaka Vlllaoo. 
California, and Madoo tlaotronloa, Ltd., of laraobi, fakiatao 
aoAOUOOO tha fomatloo of raklatan Cao«*»tara L ottad— a Joloc- 
Vaatura Co^aoy. tba now ooacMLoy will provldo aod do^aloo 
apooial ouatsaaar-orlaatod aofcwara. opoxatioo io coo Vrda. 
Arabia aod iogllah laoajuafOa. 

owoha difbal auufaatucu to* CJUaftala Jarlaa of baalnaaa 
Diaaputara wblob ratad hifhaat ia porfooMaaca a^ras^ all CmU4 
B atut*n prioad balow IIS. 000 i* ladopoadaatly onBAuotad a va ta- 
ction* by tha Oowalcy of Colorado. 

PitUun Coasatt ara LlaUtad b&a boon lleooaod. for aa un- 
diaoloaod aaaaaot. to paoufaotara tho Chiaftoio Olftpcftoxa lo 
Pahiatao aod will oarkot «h»a« prodoota lo raklatao aod too 
ttiddla KaaC tba now ■■■pany aatlaotaa that liullBaoooa Ubor 
aad aa a o ai a t -to will aaowot CO ooxa tha* soa of tho aaaufazrtorlag 
valua adflad, Touaf wttoo oopoa-t aaloa rooob lot of panadaarcAao, 
a poaiciwa Utpoot will bo made 00 Pakiatoo'a bojaooa of trmeo. 

Mt. Maaroor tlahi O44, •aoaoiat Qiraotor of Pakiaboo 
riaaytara Llmitod, wfwo •Uoooorod the d«yal&po*«t of tahlacoo 
tolovlaiao, aotaa, >Juat aa I van ■■ n 1 the flrat to brine tela 
vlaloo taobeoioey into raAlatoo. I •» mrood to be too flrat to 
brlat ooaBOttar auumCaoturlao into tbla country. Zo additioo to 
normal bualaeaa aotivlty. our ooapany will bring lovcuut ecaapvtora 
to aoboola* oollooaa aod oolveraltlaa wblca praoeotly cxaoooc afford 
tho high ooat of lmpcun«4 ocaapvtara.' 



80X4*1 LAKEnCLO ONTARIO CAKADA MM. 2N0 
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Mr. fk>n Killiera* Sr. 
Micro 68 Journal 
P O Box 849 
Kixaon 7H 
USA 37343 



Tear Don: 

In response to your appeal a couple of iaauea ayo 
for Information re potential problems that 68XX uaera 
may encounter, I am writing to point out that according 
to the HC6883 data sheet* this chip in the Color 
Computer does not refresh the dynamic ram when it's in 
the unconditional * fast clock " t»o4e. 

The machine may appear to run OK, because the action 
of the progam counter tends to put sequential addresses 
on the bus, end the refresh interval apec is usually 
quite conoe votive. Some software, notably a ti<?ht loop 
which waits a few hundred milliseconds for an input bit 
to change state, will probably cause loss of data in 
memory. 

I don't have a CC to try this out on, but an eaay 
way to aee If it's really a problem would be to write 
a machine code delay loop that MUL'a 2**16 times and 
run it as a USR function from a double speed Basic 
prOVramJ if I'm right the machine will crash w4th 
the memory half full of garbage upon the JtTS from 
the USH function. 



Yours truly; 




^C J>^~ 



John Scott 



CAM at R tOOll sTMCllNalaTRINCl 

P.O. sox 44 ■ Cambridge. VT 05444 

I have }nat received verelon 1.4 of the IKTROL C-Ccocpiler. 
e*0 hove found a good product made better. In recompiling 
two ojclatlng program* which wore originally compiled uolng 
IHTftOL verelon 1.1. I hove realised reductions of 141 aod 20% 
io memory requiremente* The 20% reduction vea realized in 
b program which uaee oatenalve pointer structurea. In 
particular, polntera to pointora lnalde of atructurea. In 
addition to improving the efficiency of the compiler, they 
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hsvs now addsd long* And flosts, asfcing tha software an 
axcsllsnt raluai If you Conaidar that another vandor is 
tailing t.hs IEEE floating point arithaatlc package stparatsly 
for aavsral hundred dollars ovsr tha coat of the coapleta 
INTROL C-Coopilar. 

S^ncaraly, , 

M c /: 

Kartin C. *dppa',Jr. 
CAMBRIDGE ENGINEERING 



accounts at yaar and. Oaia and I .^u innicacad a naad for a 
iJjftilar program whan tn* first Lnatailaant of LAPSYS was 
puoilanad C*2uly# ltia iaswaSJ of »a*4J). 

Without disparagaavant eo Mr. Bobarg'a proaraa* oia vorA ancour- 
agad j« to writs tha anclosad «>rograai (CLEAA.3AS), miult "claara" 
only cha Lncaaas and aaponaa accouata and poata tl\m diffaranc* to 
eha equity Account lAcct. Mo. iOO in our <y a taaa). Tnia la th* 
way in which accountants coaplata tfValr ysar-and ancriaa and your 
raadars aight likai to hava it for chat purpoaa. 

Thanks again for your aacallaat publication. 



SoutHwest Tt 



PrxxJucts 




Sincaraly, 



^tucuur SySjCaVi ib 



IrHI VUllai 
IS 4 Star* JtVMl 
1*0 (MM«lrt tollt 
M 1.1 «t1 

IliHI 
Tt TM4* 

0B4 



P^at. •1*WJ«4» •»!!> • •»»* w»*y 9f»r«tl4t H7«t«. »* a©* * •»♦« 

•■viraarti f«r nut kt«*« HfNiri' nit i* *MLir 4iHHtrita 19 ta* 
rWMlO* #f • trPlotl t*»*a»r« M tS* OtiFLRI uoblM wlm lb* jwfp* 



'*m^ a»*.tio« Tim ttlal art** 

0«**n C T*.t 24.* mc *» 4 

wtn c «^» «m lias 

TkM4 »r» «** fVsw tor ia» r«Sl«* ■wfc-r 4*a«***f* t**t «»p««r«t m pa** 

20 «r ta> m ti i i f 'at u«». u *•• «•» «#• t**i* u r*«ll* m w*u n>r 

MSSUtSSI ftUi ta» SVTT«faU/U> *m»1«* fc*l« U » 4lff»r.ot tall*** 
*at««*Uwr. u f» i ta* 3VTT«/«ai/Ul *Nll«tl«i «mn tl-w.r to <x»*«tii* 
rt«S mm ««ry m»NiaU {tS »w»i; *•»«•!»•> «lal#- 
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SPECTRUM PROJECTS 

93-15 8a DRIVE 

HOOOHAVCM, NEW YORK 11421 

VOICE Lir< (2121441-2807 
DATA IINEB <212) 441-3733/3766 



64K Upgrada for TOP 1 00* 26-3002A, and 26-3O04A 

1. Roawvo capacitora CBB, CaO,C42, C*4,C6*, C©e,C70, and C72. 

2. now two Juapara to tha laft of U21 and ons Ju«par abow U28 
down to tna 64K poaltion. 

3. Solder tha two Dara a taking pine to tha left o« U17 togathar. 

4. 'natal 1 44K chlpa. 



10 AiH CLaAft.BAS 

1U MEM T1.IS FfcOGKAH WILL CiXnA Mix IMCQMi. A£D £JCPCVSi: ACCOUNTS 

JO MXH ttXCClMG WWITY WZTU THE UirrtJi£MC£ 

4j K&. l,2i r IJ 

iJ P82HT XARJJINC 

•0 PRIRT 

TO PRIITT "TKIS FROG RAM CLIARS ALL 1UCQM1 AMD IJCPUi£L AOCOOUT*' 
• Q MtlWt 'AND SHOULD ONLY ML RLN AT YLAJ) EMU TO CKLATt A WLW * 
*& FRIWT ^DLCCL' GLHERAL LtlXiLX riLL rOM TU£ M£AT VXAR** 

id*. PRiwTiFHurr 

llu PRINT "THA, OitXClNAi. 'D&C.GL* 6U00L& at Paxs£^VTD . ■ 

120 PRZN iPRltft 

Uv PRINT # 00 YOU »<A,rr 70 CQllTlH^t (Y/.O? - lAiii-lMCH* (U> 

140 ir AiwO^V TufiK 3dd 

l&u tli.'l MlJoi IK Uiu ur YLAR GLNEAAL LLt^CLIt 

i*v OPLJ* OLJ "OLC.GL* Ab 1 

i;j GLT tl« RiCOKJ 1 

l*u RLM /»-MUnsLR Of AiJCiXIWTfi 

i*J PltU il t 4Afii#m-tVT:#*U*i 

iOO R£H W*-hO. iA*-ALCT.UAHLfA-ACCT.nAL, 

^i^ dim mut) i Aa(xt} i Aa%) 

J* J GET ftl, RECORD llOOTQ J4u 

21u ALT II 

J4U POM H*« TO 7 

25d ntiD •l,SI*JoA£i»,MfGK»,20ASGM*,lASGT> 

iaO IF I»-0 TKD< JiO 

270 0if It) -CVT* I (GM> J i M 1 1 * J -G*U t A 1 2 1 J *CVT*P (Gt« > 

210 R£M KELP A RUKNING TOTAL OF I^COKE 

IM RLH AJJD EXPENSE ACCTs. TOTALS 

lUu IF K*<I%>>m THEM Al-Ai*A£It} 

}*- IP I1*X1 HBM li, 

3J0 tt-II+l 

J30 KEXT §1 

340 GOTO 230 

J»0 CLOSE 1 

Ml ON tRROK GOTO ibO 

17 y OPEN MEN "DEC-GL* AS 1 

310 RIM ACCT.J00 IS SgtITYl IMCOXE 4 EXPEMSE 

4m REM ACCTS. START AT 4UV 

410 R*«t* 

4iW FORS^mTO? 

4 J M F 1 LLiJi I , fcl* JvAS** , iASCW* , 2 i>A£GH* , 4ASGT* 

4 4u If N*{RI+E%)*300 THEN A [**+**) -A iHl*S» ) +A1 

4iu IF NMM*Sl))iYT TMU A[K**i*>-- 

4»j LSETCu#*CVT%* (Kl L*l#bi, j 

47 j LSLTGM>-A^(Hl*»%) 

1141 LSETGTt-CVTFt (A(Rt+5in 

4*0 lFRk4£fc-j£iTrfi.NFVTtLiG0T03Ju 

S^u ITEX1EI 

»1* PVTll 

i«u Rt«i<S4«iGQTO«io 

ij- OETllrHECOHlMiREM AOO P11X lilt 

>4« riLLDfc 1* *ASk* 

±14 FyTll,RlX0RDl 

S7u CLOSE 1 

M0 EN J 

i»J ONERROMOOTU 

100 IFE R-7 7TKENAESUMSbJ0 



AVRILA8U1 FROM S^SCTRUM PROJECTS 



16* Chlpa 

64K Ct>lp* 

8ABXC I. 1 ROM 
aaM3/>«RTtlNK 



sia/tCT 

Sa4/6ST 
•SSj.OC 
•29.93 
a29.9S 

EXTENDED BARIC KIT SBS.OO 
FOR OOICM BSRVICE. CAtX <2l2> 441-2907 



ERNEST STEVE XATSON 

11701 ST. LMARLSJ Bi-VD. 

LITTLE ROCS. A114M11S 7^ill 

>Ol/J24-U»S 



ttosM Accounting 
Prograa Systaa 



uaax Ooc< 



Noao Daia Brady and I aant you oAPSYS, wa Lndicatad that 
fiBlajl prograjM oad not uaan ooaplatad aiad invicad your raadara 
co raspond. Hr. itig soparg of LLnMopEn« # Swadan did so and 1 aw 
anoiosing a douv of nia program wnEoh "olwars* all gunaral isdgar 

36 




technkzQl /y/terar 
corvultont/jnc. 



1 1 1 PtMdanca Sow? * Oaof *m H&w Cwoww 2?Si4 • rail) ««>i*ii • rwn 5i&0?&0540 

sIN P10OIXT SUUfTlM 
t«l«iM dft«: DVWDIAHL1 
Contact: Osn tfanada 
Plkint: (tit) 4f3-i4Si 

Bfli S809 CXBCE OMP1LEM 

Tacanlcsl Vt^sas Contsltsnti, lac. hat amwuvwad tat rsletia of 4 
sttlfv-cads COBX c<Rap11tr for v»t undsr tn*1r 6009 *1cnsiroct»Mr-b*sad 
VsllUX* Oosratlag Sjnjtaa. THa product aat dsvaloped totally la-teus* 
and hai unoaffofwi constdaratlt flstd tsitlag. Ufd on tha AftSt 1974 
COBOL itandard. ths coapflar offsn nsarly all lm*l | *M aaajr Laval II 



'68* Micro Journal 



fealuras. Beceutf the operating tyitp, uniFUl". 1| multi-user (wtry 
l foliar to WMX"). severe) unUue features have ^n built into this 
cmOL. Of pertlculir Interest, the m Tt*W facility, la hirvnjr with 
Mn1Fl.Fl", enables any CtaTO. program to run - without modification • on 
a«V mU or tarmlne). Tne tOBOi prograwr It relieved or any tsrwlnat 
opacifies. Nti progr** will Autoptical ly hand) a the cursor for screen 
I/O at any terminal, regerdleat of Us character ittlcf. 

A mat for anjr aulU-uitr en*iroramjnt* record lading 1» supported ror 
disk files. A "thared taxi" option producei COBOL program* that require 
only ona copy of the program In eaeaory a van though It 1» simultaneously 
run by multlpla users. An Intaractlva dabug option permits a uter to 
traea the eiecuHon of a program tntert breakpoints. si'wjTe-slep 
through § program, and aora. A unique feiture allows a user to interact 
with the debugger on ona terminal while arty prograai 1/0 is cirrltd out 
on a tacond terminal. This ft particular convenient o>ir the proyraw 
urtdar tatt perforait screen oriented t/0 which would be deilrojred by 
debug prompt! and input on the tame terminal. 

The SCA££N SECTtO* for cursor oriented input/output to a CRT terminal Is 
one of the mast complete In the industry. It supports ell the tcrcm 
protocol optlont offered by both Data Genarel and *Cft ftBfXj. Key 
capabilities include direct and relative curior positioning, 
highlighting, screen end line arete, and extended rormatUng of display 
and ecctPl Melds. Screen Melds may be specified as right Justified, 
required, secure, full, auto, and falan* when zero. 

Oilt file input/output may be sequential, indexed, and I've relative. 
Variabla length records are allowed In any of these file typtt. Tne 
indexed file type el lows up to four ellarnete keys par rile, with or 
without dwplicatat. Except for specifying an alternate COLLATING 
SEQUENCE, all of the Level I J SORT -#tlRGE features are implemented as 
trail as a complete Level I Report writer pectage. Also implemented Is 
an extended CALL verb which Is not United to calling COBOL programs; 
any program exacutable ufMler UnlfLEJT may be cal led. Users familiar 
with "plpas- under UniFLEl" or UNU" will appreclala the ability of this 

COIOL to ganerate a pipe. 

Numerous compliant ir* options allow the production of sourca listing, 
cross reference listing, and tarltble summary Information, and the 
spaciricatlOn of output fllaname. A s1ng)e call to the ccmpllar will 
product an axeculable binary program, but it 1s posstbla to halt the 
compilation at the intermediata esMmblar source stage if desired, 

A iing)e~cpu llctnse for the complete 6809 UMFLEl* COBOL package costs 

$750.00. m>ieh includes eme fr of maintenance end a Merited warranty, 

and may be obtained from Technical Systems Consultants, Inc.. Ill 

Providence load. Chapel Hill. IC cHle. Teltpmone: (919) 49J-14S). 

Telex II: U0-«O-0S4O. 

- UnlrLEX 1s a trademark of Technical Systems Consultants, !«c. 
■ nun is a trademark of lell LaboratoMas. 

UNIVERSAL OATA AtSEAPTM, INC. MTX1KXS 

A tVU. UNX Of KDDS A*© Th* ALL NfcV 

*&rT£D SELECT* -H*X I/O CARD 

universal Lmta Aaaeerch, Inc. today avouod a new complete line or etadamm 

end an I/O card that ecitmw)llca))y eel acta the appropriate baud race, the 

t\e* UDRI modems ere daslgned to be altaple to use, reliable, and priced 
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be) on the avar*4- market. 

n+ U3*l modefiB are designed to connect any RS:3: Interface terminal or 
toapotcr with the phctwj line*. The 390 emwd repress provide half and foJl 
dtrple* operation In originate, answer and auto-answer mode . the 12P0 baud 

modeos provide fu)) dwplei operation with switch oelectafcle Joes) echo. 
The digital dea)gt la based or. c~= LSI Integrated circuits and la crystal 
eont.ro) lad for auperior performance. 

The 212A amdaos era conpatlbla with the Ball 212a modan. They 
automatic*)) y dial /answer end crananit at )«p/12P0 baud, UnjHe nott 
othtra, theaa modems do not r«3uir« any spaclal wiring or Interfacing. 
rfenss con be uaad with the UDRI automatic epead eelect I/O board. 



All utffll nodana are attractively housed in a compact, brushad alarilnLan, 
enodiaed caaa which naotly fits undar a standard dasHtop phone. With )ow 
parte count, these new emdene have outatandlng reliability, long life, and 
lower coats - which ere reflected In a lower price. 

Prices for these eodena are *■ followst 

S»e baud acoustic 5U9.ee 

Dff bajd diract ng.s* 

3M oeud mito^aAswar 219. IV 

12M emud diract 449.ee 

12P* betid auto-anawar ........ 499. M 

212A evto-eamwar M9.«0 

21 JA auto die) S99.M 

The all n*w node* 1/0 board pay ba usad with thr 212A aodema to 
autonetlca))y oelect Um bead rata. Tnle I/t) card allows the mx*m\ to test 
for 12t0 baud end automatically adjust to 390 baud without requiring 
epeeial changot in tha hardware configuration). The card provides greater 
flexibility and is available only through UTSU. 

The I/O apaed eeJect board la avallebla for only S119.W. feeler Inqvlrlee 
are -*- 



for fu/thar information contact t 

UHlVOQAI. »TA P42tAACH» INC. 
Cynthia tylle Nllson 
Director of Marketing 
24S7 wahrle Orlve 
Buffalo, NT am 
(TIB) BJl-Jtli 
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Hlefeweta fwetaM Cafaaiatian eaaiwaaaa the Latradaatiaa of 
■wpswjlS a*t*l** l«e 1 at ration Card*. tSt lupport i»r*lc« wtltiaa 
the euatamar ta mm* tha ■efkwsr* lot-Lint at Telaa tar* lea far 
taeaeileal adwlea aad oeaiultatiea, sma ragiattatian aarda, *m*m 
filled est aad tatafaadr aatltla tha eitakaaar ta II Aaya rati 
***>U*e aasmart. 

Hlerewaxa aai II eased 1199 MaarT ms«amear aaatofaatetara are 
dlasflaajtiam awm tymaa af reflat/atlaa. aar'a. 9me aerme Ma 
■alar ■ 4a i» el a* far tma Oi-f opaiatiaaj ayataa and bremn far 

lanfaagae and seftvata koala, math tyaaa of earda «l*a niiglate 
Ufaramtlaa about tha BMt~LLa* aarwlc# raoarl, pbana and tales 
number, eta.) and a owatoamr aerial number, 

fma hnirt marvlaa "tgntntun Carda era balaaj diaiilmetad afttft 
ell •lerewaia oaftware praduota abiammd after Janaary II. ltdl. 
•afeware a asm at eemnaaseee aa tat amcaautee eata> ms mee at. tbe 
aard aaat ba filled oat aad lemmdiatly rataraad ta Bier ewe it to 
Initiate the free 10 day auptmrt parted. 
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ftleievara •ttmtm tea Yearly 6upa«tc eersloe to oastoeers, ttpoa 
Um taEalaefciaa of the f rae M day sapvort period* far I7S.99 
ace yaa*. 
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Coasytar-ara- iHtroduca* 64* SCREEN E*PAND€P evallaels on 
caiiftti aid 91 »k for t*« Radio Shact Color Compiler ead 

T DP. 100. 

Tfca 64K SCREEN EAPANOE* alio** tna 64« Color Coepyter to 
*•*• a 31 a 2s sppar an* lour cata display tor a*ar yt* t ao.1 TMi 
Inclidas Otslc and all sssaebly langusga Proproes that asa fast 
display*. Imclwdad with It la ■ *irr alts character adttor so 

If you «art to change ar>y off tffta characters. It la vary easy to 
do to. 9kst It loti It trmnttmr all your AOtfs to RAN me yben 
■odtty thaa to ■■■ Its nav HJ~ftss display. Froe our tasting. it 
dees not at fact any soltasre* stay* a»an %tt^r rasstt I if. and 
looks graat e»sn on a TV. 



THa PJMtfT coeeand Is also aipanded 



TOa FAl«TT coaeano is also aipanded. it new works alta traa 
coordinsfa positions, laesolwts cursor post tton lag) . tod slepiy 
gu« PRINTt fh* V w*4 % coordlnatas of tha position you went to 
print) Tns 64K SCREEN EKPANDER rsqulres 64K off ■teory and 
E*tandad Basic. 

THE 6<ft SCREEN EXPANDER only cost* 124,93 on cassatta and 

12*. 93 on disk (plat 17 shipping and ksndllng}. Its a«al|a»la 
traa> CONFUTE Ra A* E " daa I ar s or dlractiy troa COaJ»UTER»ARE* at *o» 
666. «403 Naaehatter A*... Sulfa 103. Eaclaltaa, CA. 9202*. 
1619143ft. 331 J. 

Box 666 • 4403 Mwchsnlar Ave * $o>ia 102 • Enc^H*^ Catftomia 02Q24 
Rwv {fll** 4M-3512 

University of Sooth Florida 
tioloav Pent.. LIT 167 
4702 Fo«ilar Avenue 
Taa^a* FL JJ620 
<01J> 974-?«9S 
1 Octobar 1902 
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Daar Doni 

I recalved woof lattar of 9ept«ab«r 17 and aa alad tnet wou 
decided to publish tha aatarial I subalttad aarllar. I aa 
enclosing a disk conttinioi aatarial for a macood article. 
It It a randoa nueber generator for JniFLEX FORTRAN urltte 
in aaaaablar language and designed to ba incorporated into 
a FORTRAN library bw tha aethod daacrlbad In tha first 
articla. UnlFLEX FORTRAN doaa not hava en intrinsic randoa 
function* ao this la a logical addition to one's utility 
llbrerw. Rarwiaa nuabar generation is a special interest of 
alna* and 1 «nti a eianlar but lasa riaoroua version for 
tha 6S02 that appeared in tha Auaust 1982 Istuf of MICRO 
(tha other MICRO>. 

Tha disk la in UniFLEX foraat. air.ala «idad. *inal- dan«lty. 
All fiv# filaa ara taxt f lam yrlttan ulth tha UniFLEX t^xt 
aditor. I did tha indantt«.ionm and t"ba with aulll^-le uvcii, 
Tha filaa mrml 

aat**nv2 taxt of tha articla 

maad Lift Llrd 1 

rnd Listini 2 

rndchi.f Listing 3 

rndftaa.f Listing 4 

I aa alfto anc losing a listing of tha«a fil«« for varif 1 ration. 

imlass soaathini unforaaaan stasia av ti*a* 1 Mill sand you aw 
librarv of atrlnd-handllnd utllitiaft in 2 or 3 ***•*.«. This is 
another tool for FORTRAN uaar*. but urittan in 6609 asaaablar 
lanauaaa (and thus readable bv everwone). 

Art nathenw 
♦ f 
ft Mat seed 



a a a 0ECD 9 a a 

t 

a Saads tha Randoa Nuabar Generator 

a 

9 Should ba eel lad before let RN0 

a 

3ft 



a subroutine saad<I> 

a 

a if 1 - Or uses tlsa swstee call 

a if 1<> 0* usaft X 

a 

naaa _aaad 

global .«aad* nrav 

text 
+***4 laax 2.« 

nshs d 

* Is araueent larot 

ldd ttnl 
bee seadl 

9 Uaa arsuaertt to seed H 

std r\rmv 
std nraw+2 
std nra«t4 
std nrawt6 
nwla d.nc 

« Use tlaa a*tt» call 

saedl ivi 39»nrav+2 
ldd nrawtS 
std nruu 
npjls d.pc 

■ tt nrriv I tlaa huffar 

bss 

rtrmv r*b 10 

glHfl 

+ T 



s s a 6009 Randoa Nuebar Gone rat or a a 

a 

a bv Art hsthenw 

a 

s Uses Linasr Conaruantlal Operator: 

a 

s N' • (aiNtC) aod P 

a 

a uteres M is a 7^bwte integer 

* P ■ .00000000000000 H 

* A - 1010101010101 H 
9 C - 36PC6344F997A5 H 

a 

a The 7 bwtes of N oust be seeded once, 
a The saed value daterainea tha psauda- 
a randoa aaeuence, 

na*e -rnd 
e«t nraw 
global _rnd 
taxt 
«rnd ltax 4»s addra«s to nut raault 

aaaaaaaaat ceicuiationo •*•••••••* 

a Parfora linaar roniruontial urtiutior. 

bar rr»dO 

9 Hove result before ranoraali ration 

bar vOve 

bec Ziro ta«t for »ero 

a RenoreaHxa raault 

bar more 

* Clean we the stack and raturn 
puis atatfaajfftf 

4 Once in m billion vtiri.., 

iaro Ida 90 result is stro 
sta rw 
aula d»w»Utpc ratum 

aaaiaaaaaa Subroutines aaaaaaaaat 

9 Linaar Conguential Operator 

9 MultlPlu bw A a 1010101010101 H 

rndO ldu 9nrawf7 eove u above laast bwte 

Ida 07 nuebar of bwtes in N 
ldd 90 
rndl »shs a add a to b 

addb i at 

adca 90 

addb i-u add next bute 

adca #0 

stb »u replace this bute of N 

leaw -liw 

bna rndl nent bwte 
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nori Id* 1190 «4»l PM^ofiVil to 2iro 

tta 7t* exponunl luc-jiitm 
noral Ida im wkl uidrrj f n .n.I but* 

4f>d* #*eo 

b*»r nar*3 

idb 47 nhift derail 
laaw 7.11 
Clr 
rmr«2 rol »-* 
**#rh 

!*.» rwr«7 

dac 7»« adjust axr-on*nl. 
bra noral 

• CI— f tian bit 

n r»3 Ida »h 
and* 447F 
ata »* 
rim 



• Add t * 34IC6344F997** H 

ldb a.u 
•ddb MAS 
mtb 4iu 
ldb Siu 
•deb 4*97 
alb Sfj 
ldb 4«u 
adeb 44F9 
atb 4»u 
ldb 3»u 
adeb M«4 
atb 3»u 
ldb 2.u 
•deb 4443 
atb 2r U 
ldb lfu 
adeb 4»*C 
atb hu 
ldb tu 
adeb 44 34 
• tb *u 
pta 

t nova N to mull, location 
a u-rm% auat point to H 

■ova tfr ktv **r*4 ^ainl.t to result 

ldb #7 

clc Carry cleer if ztro 
•oval Ida iui 

ata pv+ 

bao aava2 

♦ec 
■Ova 2 dacb 

On» aoval 

rU 

11 at rndchi.f 

• LIBTIN0 3 
* 



I $ * RNDCHJ a I • 

a 

a Chl~6ouara Taat of RND function 

« 

• coapliat f77 rndCM.r *c 
• 

a llnk-editl 
t rndchl . r 

• rnd • r 

i M-r77.runllb 

• +n 

a +otrndrhi 
* 

■Mtarnal rndiaaad 

reel rnd 

intaaar knt(100> 

wrlte(6.90) 
40 foraetf 'Oiva aaad value: ' »•> 

raad(3f9l> J 

91 for»et<l4> 
rail aaad(J) 
writ* (4 -93 J 

92 foraat</'99 dearaaa of freedaa*// 
♦ 'PA68C8 CMI-MH)A«€'> 

do 1 1-1 i 100 
Hnt(I>-0 

1 continue 

do 2 J-l« 100 
do 3 1-1*100 
Mkint(lOO*rn'*rO>>t 1 
a.nt<M)#knt<N>4i 

3 continue 
C-0. 

do 4 1»1 . 100 

8»»floet<knt<I>-J> 

C-C+DtO 

4 continue 
urite(4*93> J.C/f loat( J> 

93 foraatf I3.Fl2.2l 

2 continue 
ata» 
and 
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Hat rndaeo.f 

ttSTINO 4 



Sequential correlation taat of AND function 

coatMlai f77 rndsao.f fc 

liok-adttl 
rnd too. r 
rnd. t 

♦1-F77.runllb 
4n 
toamdaao 

external rndtaaad 

charactaral eh 

raal md»cro«a(100.l2)*free<l2) 

intaaar dlllt<l2) .hi at( 100 1 12) nor 

data eft/'*'/ 

■ Dialoa 

• 

writaU.W 

1 for»et< ' Input itauinct lanath ( recommended! 1000> *»a> 
reed<9>2> imp 

2 foratt(fl2.0> 

If (*«*». It. 2.) *b*p»2. 
If <»«-r ,at,??9?. > aeaP-9999. 
niat-lnt( i .♦•lo«(»««r}/«Ioa(2. )> 
wMte<6»3) •■■►mitt 

3 foreat< 'Seauenca lanath -'»fB.0/ 

♦'Input aaxleua correlation off sat < recoeeended : ' » I3* ' ) '/ 
+ 'U*a dtalta onUl ' p4> 
read<3.4> naat 

4 for**trl3> 

>f<naet.St .100) naat-100 
if Cnaat.lt. 1) nsat-1 
wrlta<6.S> naat 

5 foraati 'Hax orfaat -'il4/ 
f*If>Put aaad value ( intaaar): * .*> 

raed<3.4> Jaaad 

call aaad<si«aad) 
a 

4 Ztro all *ua* 
* 

COVK>f«i . 

do 6 J-t.12 

fr#o<^>»»o. 

do 4 1-1 .n**t 

ero%»< i * j>-0. 
♦ continue 
a 

i Load u» Hiatnrw arra+t 
| 

do 7 ial.naat 

call bitardiait) 

do 7 J-ltl2 

hl»t<l.J)«diait<J) 
7 continue 

4 Main Loop 
i 

10 If Ccount-100.4floattint(count/100. >>.lt.l.> mi ite<4*9> eh 
9 foroat<Bl ••) 
call blta(dlalt) 
do 11 J-l»12 
freo(J>-frao(J>4float(dialt(j>> 

11 continue 

do 12 1-1. naat 
do 12 J-l,12 

k-eor<hletCi»J>.dieit(J>> 
croaa<l. J)-Croaa<i. J)+floet<k) 

12 continue 
1-naet 

13 Iffi .eo. I) ao to 13 
do 14 Jal.12 
hlBt<l'J>alUat<l-l*J> 

14 continue 

i-i-i 

M to 13 

13 do 14 J-1.12 
hiat<l*.i>"dt*Ut(J> 

14 continue 
COuntoeount+l . 

If (eaunt.lt. aaoM .3> OO to 10 
* 
* Print floavltt 



writaf4i20) *«*>*> tnaetf Jaa«df *Vt*immm*t reo» 
i(l»<eroaa(l»J>»J-l*12>il*l»nsatX 
20 faraat<////'l**Menca leneth ■'ifl.0/ 
4'Ha M offaet ■' .14/ 
4'fead value) ■'.14// 

♦ 'Each entrw below aftould be * blnoolal 
f expectation velue -'#f7.0/ 
+' atendard deviation -'.fa.O// 
♦2*M.*fr ouoncw'/ 
f'dlaltl' .12/4.0// 
4 'offaet' »20m> 'correlation'/ 
4(l4il2f4.0l> 

ato» 

end 



arlete with'/ 



subrouttr>» bits<diftit) 
inlifir dlOlK I?) 
y-rnd<0> 
do 1 1-1. 12 

J-inl<v> 
M-M-rioat<^> 

dml(i)*J 
1 conlirvuc 

return 

•rxj 
» 

• Ertclir*iv* (W function 
1 

intaaar function *ar<i,J> 

tor»i *J-?» i t j 

return 



li*t aathafiu? 
A RANDOM NUMMR flENCRAfD* rOR LWIFLEX FOtfTftA* 

bw Art flathanw 

Unlvaraltw of Booth Florid* 
flololv t>a#l.» LIF la? 
r»*r«. Lr 33620 



Tha random rumbar ivntrttor doocrlt>*d in this popar- 
ts damlanad to work *• a utility fUr>ctlon for FORTRAN 77 
as laMaaantad undar UnlFLCXi Houavar* anw 6809 Frolnaii 
eon aaka uit of tha aubroutlna baolnnlno at trta *rndO* 
labal of Limtino 2. 



Tha lanaral procadura uood hara worn daaenbad Ln an 
aarliar articla antltlad 'How to Write MacMna Lanaua** 
Utilities for UntFLCX FORTRAN*. (UniFLEX i% a trideMrk 
of tachnlcal Bwmtaam Consultants.) rlatheaat leal lw* tha 
randoa nunbtrt sra oanaratad bw tha application of 
a llnaar conouantlal oparator. Such oparators Mara 
dascrlbad in datail bw T. F. Clbart An a sarias of four 
arttclaa published In this journal froa, Novaobar 1981 
to February 1982, 

Listing I is a subroutine which aust ba cat lad onca 
bafora tha random nuabar oanarator <R*0 for short) is 
usad. It is callad **oad* bacausa it saeds tha RNC. If 
tha arau*ant is non-itro« than that valua is usad to 
soad tha RMOl if It Is taro than tha 'tiaa' twttp* call 
i*Mja£ar 39) will bo invoked for this purposa. 

Llstlno 2 is tha RHO itoalf. fhls is a raal 
functiom which is similar to an intaoar function 



•uch as 'nacs' of tha aarllar papar. In both function 
t*paa» tha function prooraa is expected to flare tha rasult 
at a cartain point in tha tlecfc . Tha onlv difference 
is tha tup ■ of tha rasult. Tha rasult of art lntaaar 
function Bust ba a two-bwta intaoar • whila tha rasult 
of o raal function oust ba an aisht-bwta raal no*barr 
in tha foraat usad bv FORIfrAM 77 for raal values. 

A raal valua consists of ei4ht but**. Tha firwl 
teve*> bwlaa ere tha oentissei and tha eighth bvte is 
tha exponent. The first bvte is the eost sisrtif leant 
bvte* and tha seventh bwte is the la*«t siOnifiCattt trolw. 
Bit savan <Mfi9> bit of bvte T indicates tha *i«n» 1 
piesuee that the result *u«t he • re#K»roel i»:ed' . b Ihi, 
I even tha following: If the result. i% nut -cero i in 
which cava special handling is reovi r ed>* tha +o\.\ 
sisniftcant bit of tha a>ust tiflr«ific4nt bete *u%t | 4 
a ♦!'♦ If it is not* then shift tha aantxvsa left j*k1 
ads>ust tha exponent «*,t,il a 'I' is shifted into Hit' 
position. Than replace that bit with the smn Lit* l"it 
in our rasa* where the result i*> always positive* 
Uie si On bit is always '0'. I'm i>orrM if that'* 
confusmot but I have .Just told vou everything 1 » i»im 
obout f loot Ino-polnt arithmetic* 

Since there are seven bv,tes in the oantlssa of 
tha result* tha RNO u«as a aavan-bwte inteeer. which 
is sat tjp bv. 'seed' in tha bso «aiiaent at 'nraw'. 
[The extra thrae bvtes ara for tha portion of thi* tloe 
buffer whirh is not used bv the saed Ptoarao,) The RNO 
•(■npr«*tas a new dai/en-bvte intaOer froa the old or»e bv 
^PPlvinO the fnlloMinn linear conouantl^l operaturi 

H' - (ACN+C1 end P 

Mharel N is the old inteeer 
N* it the new value 
P - 100000000000000 H 
* *■ lOlOlOlOIOlOl H 

C - 369C6344F997A3 H 

The startlna valua is Oanaratad bv 'seed'* and the 
seouence is propaoeted bv repeated application of 
this saae operator. The •tertlno valua will not 
re-occur until ill possible P nuebers have been 
oenerated. tf.O. Neuoen and P.L. 0d*U* THE OCNgRATlON 
OF RAMPOH VARIATCS* Hefner Publishing Coepanv* New 
Yorr • 1971* ■>■■■ 6.) At that point tha sequence will 
repeat. (But wOu will not live long enough to sea it>) 

Because the period of this seouence is so large* 
wou can senereted a vlrlAiellw unlimited nueber of 
randoa nuebers with this function. In additionr it is 
prettv fast* first hecauae it is in eeChine languaor* 
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RECORD MANAGEMENT SYSTEM 



RMS 



DATABASE MANAGEMENT 



•USER DEFINED RECORD FORMAT VIA DATA DICTIONARY 
•SCREEN ORIENTED. FORM FILL OUT TYPE OF ACCESS 
•OPTIONAL TWO LEVEL RECORD HIERARCHY 
•ALL FILES IN ASCII TEXT FORMAL BASIC COMPATIBLE 
•DIRECT ACCESS BY KEY FIELD. MULTIPLE INDEX FILES 
•EXTENSIVE DOCUMENTATION. SAMPLE APPLICATION 
•VERSATILE. PROFESSIONAL QUALITY REPORT WRITER 
•BUILT-IN SORT/MERGE 
•EASY TO USE 




RMS is a complete DATABASE MANAGEMENT package 
for the 6809 computer. It is made up of five machine 
language programs that make up the most powerful 
business programming tool available for the 6809. It can be 
used by the relative novice, to implement an incredible 
variety of information storage and retrieval applications, 
without any programming. However, the programmer can 
use RMS as part of the solution to a larger problem, saving 
many hours of unnecessary program development time. 
RMS can be used to handle data input, editing, validation, 
on-line retrieval, sorting and printed reports. Custom data 
manipulation can be filled in by the user's BASIC programs. 



SINGLE CPU LICENSE 

FLEX* $200 

OS-9 + $250 

UNIFLEX* $300 

TEAMS VISA ML HtPAlO 



WASHINGTON 
COMPUTER SERVICES 

3028 SILVERN LANE 

BELLINGHAM, WA 98226 

1 (2061 734-8248 



f LEX and uHiKlx v* irodenwfca o* Techfwej S 



In Australia & Southeasl Asia, Available Through: 

Paris Radio Einctronics. 

Snop 01, 165 BoiaejfonQ Rd of PO Box 380 

Kingsford NSW 2032 Australia Dartinghurst NSW 2010 Sidney. Australia 

n ConavHariti inc , * OS 9 « i iPtdomarfc of M^rowo** 
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and «tcond btcautt I took a intaku short cut in 
eulttrlwing bu A. The** an important cortu da ration* 
in application* such ac Honta Carlo eetrtods er 
statistical slaoletioht. 

The eost obviout utaknatt in this eethod Is the 
regular pattern of btt* in tha eutirl icativa constant 
A, l» this a fatal flaw? Wa can last it to find out. 

Listings 3 and 4 hot Ohlv illustrate how tha 
RNG tt laplaaantad in FORTRAN rroimtr but also test 
tha statistical oualitu of tha PnO. Listing 3 is tha 
chi-sauara test. Randoa integers between I and 100 
ar« chosen r and a count is aada of how aanu tiart 
aach of thasa valutas is chosen. Tha chi-sauara 
statistic calculated froa. this data should ba 
around ??• Anuthin* naar that value is accaptabla 
bacauaa tha chl-souare of a bad RNG Mill diverse 
rapidly. A chi-sauara value that is too low 
(conversing toward zaro) is Just as bad for soee 
applications as or* that Is too hiah (diveraina urward). 

Li«tina 4 is another last proar«», It unaisiie* 
tha first 12 significant bits of tha tenerated 
values* It counts tha nueber of ' 1 ' bits in tha 
saauanca at aach of thasa diaits. It *1ko doas a 
kind of autocorrelation tast bv cfluntin* tha 
nvibpt of tiaas a di*it is tha saaa as tha 
corrataondina dialt of its predecessors. All of 
thasa statistics ouflht to have a staple bihoaial 
^Attribution*. If all af thaa ara within tOM let'* s.»>*> 
five stsndord deviation units of tha expected ivvni than 
I uould call tt oh ay. 

Lookind at tha results of thasa tast? t the KMB 
looks fine to ae. Houover an RnO that works sraat in 
on» application ■ia'ht caapletelu boab in another* Thai a 
is nO absolute tast for whathar a randoa nuaber 
»narator 'works* or not. fhus »ou aay ba ueel advised 
to run furthar tests to aaka sura that this RNQ is 
suitable for vour application. 

ppnrfiuiiif 

1> Enter tha source coda for 'seed* and "rnd" froa 
Listinas 1 end 2. 

2) Atthaabla tha routines with tha lalocatins astaablar; 

if ralasab rnd saad 

This produces a relocatable obJect-code aodula and 
naaas it " rnd.r*. 

3) Coap>la the aain prosraa frndrhi.fr for exserle) 
with the +c optiont 

+ ♦ f77 rndchi.f *r 

This produces another relocatable object-code 
aodulai 'rndchi.r'- 

4) Link the aodulus together with the "ltnk-adtt* 
coaaandt 

♦ ♦ link-adit rndchi . r rnd.r +1-F77. runlib fno-rhdchi 

Ihis produces an executable aodule. ye have specified 
the i<aae of the output file to be 'rndchi*. For large 
proareasr mou aiw wish to use tha ■♦t' rather than 
tha m Ht m option. Tha 'F77.runltb* library is the 
ruik-tiae library. I auass — inuuawi you need it. 

51 The executable eortule is now read w I 

♦ ♦ rndchi 

This should *at tha prosraa unda r«aw* 



SUPPORT YOUR 
ADVERT/SERS 



Wanted: Percoa's FLEXTRAN Pro§rmm for FLEX2, 6600, LFO 

40 1 %k. 

jaaai Greger. 407 wondarly Ave,, Dayton, OH 494)9. 

e-ee 

For Sola: 4 MP-8M 8K Hisory Boards In Socket*, 40aa. 
Chip Krol I, 7311 Galleon Or, Houston, TX 77036, 

<7) 3)7 76-9472. 

a* ■ 

SVTPC/EX0R 6609. 8"~SA890, Duel 9", 64K, RS232 
Terminal, [proa Prog., 6-Parallal, 2-Sarlal, Nora. 
Soft*ere~FLEX09. TSC-Pa»cal, Xbaslc, Editor, Assembler, 
Teat Formatter, too «uch aora to list. Son* S.A.S-E. 
for data! lad I 1st. 

Contact: Jaff Belr, 29 Anthony Dr. Po u g hkeepi f a , NY 
12601, (914)462-6771. 

see 

For Sale: Brand Maw, Never bean used. Stilt In original 
box. Exatron Color Computer Olsk Controller a Itti 32 K 
■ MOiry, S233. SVTPC 32K Oynaale Naaory Board SI 23. 
Call for Toa (619 1642-4607. 



CLASSIFIED 
ADVERTISING 



6609 SWTP 69* ehasls, NP-36, NP-A2, NP-T, MP-8M, OR- 
16K-0S0-I6K. MP-92, MP-L2, 0C-3. S1000 
W. Signer, Oas PJelnes. Ml. (3121624-2317. 

• a* 

For Sale: 3-SVTPC Maaory Boerda <4K) J25ee, PR-40 S90- 

)6K SS6 Naaory boards 179, CT-1024 T*r»ln*l tlO. 

Jot Goza, )301 Heather Rd, Koneaood, III. 60430, 

(312)799-6*9,2. 
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fo Mjfcx B formatted dfs\W I 

and WRITE to a FLEX"' diskette, 5 or 8 Inch, 

with 0-F. 



from .OSST 



0-F Is a new and unique program, written In 
BASIC09" that performs the following 
functions, and comes conjp'o'ro with source. 

1- REFORMAT: This module formats a disk 
that can be read by both 0S9* and FLEX"\ 
Eight or five Inch selectable. 

2. FLEX.BAS: This program does the 
actual read or write function to the special 
0-F disk. Also It has the disk format and DiR 
(0S9) commands* All sole table from a use - 
friendly menu. All selections are Interactive 
and complete Including all necessary prompts 
to the operator. 

3. BFLEX.BAS: This program allows binary, 
programs to be exchanged, as FLEX.BAS above. 

4. DIR: This module (menu selected) allows 
the disk directory to be printed to the 
screen, while In BASIC09. 

FLEX users can read, write and use rhe 
special disk as any other FLEX disk, provided 
the FLEX directory Is not allowed to continue 
beyond track zero (too many files). 

$79.95 



DATA-COMP 

P.O. Box 794 NtXSON, TN 37343 
1415-642-4*01 
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Still A Bargain — Even 
At Twice The Price! 

Last reminder - beginning April 15th, the price of the 6809 
version of our fabulous Spell 'N Fix spelling correction 
program is increasing from $89.29 to $178.58. Why are we 
doubling the price? 

Simple. There is an old adage that says "You get what you 
pay for." It may not be right, but nevertheless some of you 
feel that since the other spelling checkers cost more, they 
must somehow be better. Well, we want to impress you with 
the quality of Spell 'N Fix, and if a higher price is what it 
takes, then so be it. If you want the best spelling checker 
around, you have until April 15th to get it at the old price of 
$89.29. After that, the price of the 6809 version will be 
$178.58. (Source code, if you want it , is $100 additional. 6800 
and Color Computer version prices remain unchanged but 
no longer include source code.) 

At $89.29, Spell 'N Fix is a Best Buy. At $178.58 it's just 
become the Best. 

Star-Kits 



P.O. Box 209 

Mt. Kisco, NY 10549 

(914) 241-0287 



WYW 



■C 
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Total Data Management... 
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3CPMM DATA MAMAOEW EKT BYSTEM 

The ZDKI <• I landed I Dal* Managavaont lyatta* |nai ••yon« the traditional 
functionality of farad by iatabaat man agame nit iriitiM' II *« capabia oF 
the nerail tabular data aanlpulattont, calculation*, aortlag. aaarcfiing 
AIM r*#e*t generation. ZDKI add* to th«tn laDc faaturot tne Ability la 
Intarmla flla data with tail to araduca cuatoai le-olctl. contract! and 
tartonaltlad aualnaaa attlara on a aa«« freiucdon or aalactl*o taait* 
IDKI daflnaa a relational atructura wheraly Uo flit* ma? bo Untodi 
togothar via a third. Thia aapact may ta a«i)irt4 to corrolata rapart 
data a* a *«Ay-lo-*ria-la-»ii*y taalo. Afvin^H fOCord aaltctlon paraiita 
'driving* rapertt ant IrHulMaa with a tile iiarlvdi froa a atcendtry 
•tltctien precatd. All Inn functionality »• iT*lla»lt kiIM« a ainglt 
frocaaa, COntrplatd by * OtnfU uaer written En|li«h-ll*.t control flit. 

I OKI aupporta attuantlal. hierarchical And randoai (lie tlructuraa and 
•aiploya data coaiprattion to Ptrnil largt felta on limitad diah. aeaco. 
Tfto hierarchical format further ttducaa ataca raquirad. If CUltoai 
procaaainf or flit trtna'tr art roo.uirad. XDMS fill* aiay ba aaaily 
trtntiated to toil foraat. IDNI flla* may ea dafinad with u» to 2* 
Haiti* and rtcord Janptha if to 299 byita, Ald>hanuai*f ic, nuattrtCr 
Ptclmtl* intvgar, acalar datt< coddd tod niaadtciaial nold tyoaa am 
aupporl«d< Potential laya to othor fiJan art ataply doltnod by «IMilar 
'laid nafftaa* lypaa and auee. Tha actual land, la aalabliaivad during 
Afocaaalftg, *o that no other praparatlen a* raquirad. 




XDMf h«a bean daaigAtd to provida IKa uaar «ttt<i <Mii«om functionaliry. 
•nd yat b* ntty to una. Mo p rograjnoving •xp*r; v rcm aa rtC : ulrao aire* 
«Jt procaaaing function! art controlled by hlfl 1%-ler el non^Procadur j| 
cOMuoanda* MhetMr your nttda art for tlatplt llftl-ortantad application* 
or COaaplta «iwl»l-FllO tatabttt flll-orklt IDMS in Ih* solution' 

IDKI Data Nanagtmant lyatPra i»" or g" diakl al79,t) 

Alto avaiUllol 

DHJJ/VM Data n*na*t*i*M lyatem D* op »' dlak: )...„>., ,.* M f tf 

ACCl^fH Qtntral Accounting lyataat for DM(^VK.... tt*?.f>9 

UTIll lat af 20 OanrraL Vtltltiva INOD'DNS I »9,*5 

WBBTCHB8TBH A. f» p» 1 i a> d Qw»in-r»» System* 
•oat 0*flc» loi l»7, Braarclirr Haoor. M.Y. 10910 

All nertwirr %m wrattan an aaatmblar and runa tindtr 4|oa FiEl 0/S. 
Tarsal Cnecb* Ne*tty Ordar. Vl«a or Haatorcn^rgt. $hip««nt llrat claaa. 
Add PHI 12.50 i*7<99 Porttgnu N.T. Rta add aalta •«. Spvcift 3 c* •-. 
aaltal 2tl-l*f-9tOO ntk tor atndyt / ConaultatlcMt ala-Vai-3 \1 itvttt. 
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Business Software for the 64K 

COLOR COMPUTER 




Data Base Manager 



Part I. 
Part II 



Single Entry General Ledger 
Church Contribution System 
Balanced Billing System 



$99.00 
$99.00 
$95.00 
$99.00 
$99.00 



Integrated 
Business Software* 

Accounts Payable 

Accounts Receivable 

General Ledger 

Inventory 2 

Payroll 



$295.00 
$295.00 
$295.00 
$295.00 
$295.00 



64K memory upgrade, including installation 
ask about our Color Computer add-ons 



$125.00 



UNIVERSAL 

QATA 
xv RESEARCH 




All Programs Require Flex and Extended Disk BASIC 
'requires two disk drives 

2457 Wehrle Drive. C-68. Buffalo, NY 14221 
Phone (716)631-3011 

Deafer Inquires Welcome •Call or WrSie fOf Free Catalogue 
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OS-9 • 6809 • FLEX 



The same system software on FLEX, OS-9, SSB OOS, RS OOS — 
offers portability and easier learning — for Color Computer and SS-50 systems 



SCRIBE 

EDITOR 



RANDOM 
BASIC 



MACRO 
ASSEMBLER 



• Many commands 


• Thousands of existing 


* All Standard 6809 


compatible with familiar 


programs are now 


mneumonics and directives 


editors for easy learning. 


transportable to 


supported. 


• Edit files larger than 


other operating systems. 




memory. 


• Extraordinary File 


• Macros allow you to 


• Many easy line edit 


Handling Capabilities — 


create often-used routines 


commands including 


ISAM, Random, & 


only once! 


insert, change, delete 


Sequential file structures. 




characters within a line. 


FAST data file access; 


• Conditional Assembly 


• Macros for repeated edit 


Very efficient file design 


allows you to build only 


sequences. 
• Merge files from disk 
to create programs or 
manuscripts. 


— records can bridge 


one multi-purpose source 


sectors. 
• 11 Digits of precision — 
BCD arithmetic for those 


code to generate several 
versions, reducing 
maintenance significantly! 


• Interfaces with Text 
Processor for word 


who need extended 
precision. 


• Repeat Sequences 
eliminate redundant 


processing. 


• Flexible User Input 


coding. 


• Great with Macro 


Commands — "Conversa- 


Assembler! 


tional" programming is a 
snap with commands 
designed for easy user 
input — single character 
or whole lines. 


• Any Size Source File — 
assembles from disk. 


WHY COMPUTERWARE 


# Only Computerware 

offers system software 


• XREF program included 


on ALL major 6809 
j operating systems 


• Easy Output Formatting 
— Print Using, automatic 


for easy cross-reference 
listings 


* 7 years of 68XX 
experience and 
unmatched expertise. 


pagination, left & right 
justification, easy 
columnization and decimal 


• Addressing Modes: 
inherent, immediate, 
relative, direct, extended. 


• As you change 


point alignment, 


and indexed — all 


operating systems, 


• Programming's Fast — 


addressing modes! 


there is no need to 


The interpreter provides 




re-fearn system i 


fast program development 




packages. 


and debugging — it is 




* No-one can match the 


self-documenting with 


FLEX »t i Iradvmirfc of TSC 


quality for the price. 


extended variable names. 


OS ft 'i a iradtmarM of Microwara 



CALL 

OR 

WRITE 

FOR 

COMPLETE 

INFORMATION 




Dealer Inquiries Invited 
® 



COMPUTERWARE 



Box 668 
6809 Specialists Encinitas, CA 92024 • (619) 436-3512 

Computerware is a trademark of Computerware 

W Micro Journal 
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CHECKOUT THE NEW PRICES ON THE BEST BARE BOARDS AVAILABLE 

(THEN TRY SOME) 

8" DOUBLE DENSITY DISK CONROLLER- $50 OP 
5 1/4" DOUBLE DENSITY DISK CONTROLLER- $50 Qp 
DMA INTERFACE -$ 32 QP 
64K DYNAMIC RAM BOARD - $50QP 
6809 CPU BOARD -$45QP 
MOTHER BOARD- $65°-0 
6845 VIDEO DISPLAY BOARD- $4509 
6847 VIDEO GRAPHICS BOARD -$45QP 
DUAL SERIAL I/O BOARD-$25Q9 MULTIPLE I/O BOARD -$40o_o 
MODEM BOARD- $30clo 30&50 PIN EXTENDER BOARDS -$25°-°ea. 



•All Boards for the SS-50 Buss 
•All Solder Masked Both Sides 
•All Silk Screened Nomenclature 

Data Syatwrw "68" 

2316 DtvmKfed Way 
Orlando, Florida 32B04 



•Full Documentation Included 

• VisaA Master Card Accepted 

• AddSZoOforC.O.D. 




pk.4251800 /MJ 



• Add S4QP for U.S. Shipping 

• Add $5*° for Canadian Shipping 
•Add SlOQP for Overseas Shipping 

Daft* System "fir* 

23HI DhmJfM W*y 

Orlando, Florida 3MM 



Florida residents add 5% sales lax. Prices effective Febuarv I, 1983 



*s 



*& 




HIGH RELIABILITY STORAGE 
FOR THE SS -50 BUS 



D I S K B U B provides 128K bubble memory 
replacing a disk drive. 

—no moving parts to wear out 
—direct boot capability 
—withstands harsh environments 

such as dust heat, vibration 
—faster than standard drives 
—utility software supplied 

Diskbub plugs into the 30 pin I/O bus 
Flex09 drivers and boot rom provided. 
Available lor only 



$82500 



UNIVERSAL 

DATA 
xx RESEARCH 




2457 Wehrle Dnve/B-68 
Buffalo. New York 14221 
Phone (716)631-3011 



Dealer Inquiries Welcome 



/ \ 


THINKINGABOUT jf\ 


SOFTWARE ? ^Wj 


THEN SEND FOR OUR ^sgj ililM ''1^ J 
LATEST DATA SHEET ffj^^^^^/gS^^^ 


LUCIDATA SOFTWARE PRODUCTS 


(5") \*1 


Locidata Pascal Version 3.1 (UruFUX") $300 
Version 39 (FIEXS") $190 $205 
Version 3 2 <FIEX2*> $150 $165 


Pascal ROM Package (including license) from $250 


Software Utilities INCLUDE. XREF end PROFILER $25 each 
plus media charge $ 15 $ 25 


COPYCAT copying ublities (CP/M 10 FLEX etc} $ 50 $ 65 


TEKPAK TekuonixCompanbJe graphics packaga $100 $115 


Prices include Airmail Postage anywhere. VISA and MasterCard 
accepted (EEC countries should ask for Sterling price list) 


"FiEK «m$ UnrflEX H M» 


nwM o* TacJWcaU Svwna CwwuIibvmi 


luciddhd 


LUCIDATA LTD. P.O. Box 128 
CAMBRIDGE CB2 SE2 ENGLAND 
tci CDunuc n\*yi*\\ OAiartft 


*- * 
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TEN MOST-ASKED QUESTIONS 



TM 



about DYNACALC 

THE ELECTRONIC SPREADSHEET FOR 6809 COMPUTERS 



1. Whet la an electronic apreed-aheat, 

enyway? 

Business people use spreadsheets to 
organize columns and rows of figures. 
DYNACALC simulates the operation of 
a spread sheet without the mess of 
paper and pencil. Of course, correc- 
tions and changes are a snap. 
Changing any entered value causes the 
whole spreadsheet to be recalculated 
based on the new constants. This 
means that you can play, 'what if?* to 
your heart's content. 

2. It DYNACALC Juet for accountants, 
then? 

Not at all. DYNACALC can be used lor 
just about any type of job. Not only 
numbers, but alphanumeric messages 
can be handled. Engineers and other 
technical users will love DYNACALCs 
sixteen-dlgit math and built-in scien- 
tific functions There's even a built-in 
sort command, so you could use 
DYNACALC to manage small data 
bases • up to 256 records. 

3. Wh*1 will DYNACALC do for ME? 
That's a good question. Basically the 
answer Is that DYNACALC will let your 
computer do just about anything you 
can Imagine. Ask your friends who have 
VisiCalc. or a similar program, just how 
useful an electronic spreadsheet 
program can be for all types of house- 
hold, business, engineering, and sclen* 
tlhc applications. 



4. Do I hava to learn computer 
programming? 

NO? DYNACALC is designed to be used 
by non-programmers, but even a Ph.D. 
inCompuler Science can understand II. 
Built-in HELP messages are provided 
for quick reference to operating 
Instructions. 

5. Do I have to modify my lyitim to uat 
DYNACALC? 

Nope. DYNACALC uses any standard 
6609 configuration, so you don't have 
to spend money on another CPU board 
or waste time learning another operat- 
ing system. 

6. Will DYNACALC read my exlatlng dele 
II lea? 

You bet! DYNACALC has a beautifully 
simple method of reading and writing 
data files, so you can communicate 
both ways with other programs on your 
system, such as the Text Editor. Text 
Processor. Sort/Merge, RMS data base 
system, or other programs written in 
BASIC. C. PASCAL. FORTRAN, and so 
on. 

7. How fait )• DYNACALC? 

Veiy. Except for a few seldom-used com* 
mands. DYNACALC is memory-resident, 
so there Is Utile disk I/O to slow things down. 
The whole data array (worksheet) 18 in 
memory, so access to any point is instan- 
taneous. DYNACALC is 100% 6609 
machine code for blistering speed. 



& la there a verelon of DYNACALC lor MY 
eyetem? 

Probably You need a 6609 computer 
(32k minimum) with FLEX or UnlFLEX 
operating system. A version for OS 9 Is 
also In the works. You also need a 
decent CRT terminal, one with at least 
60 characters per line, and direct cursor 
addressing. If your terminaf Isn't smart 
enough for DYNACALC. you probably 
need a new one anyway. The UnlFLEX 
version of DYNACALC also allows you 
to mix different brands of terminal on 
the same system. There's also a special 
version of DYNACALC for Color Com- 
pulers equipped with FLEX and Data* 
Comps F-MATE. A version for Frank 
Hogg's Color Computer FLEX Is also 
being done. 
9. How much doea DYNACALC coat? 
The FLEX versions are lust $200 per 
copy; UnlFLEX version $395. Foreign 
orders add $10 per copy for postage. 
We encourage dealers to handle 
DYNACALC. since it's a product that 
sells instantly upon demonstration. 
Call or write on your company letter* 
head for more information. 
10. White do I ondef DYNACALC? 

See your local DYNACALC dealer, or 
order directly from CSC at the address 
below. We accept telephone orders 
from 10 a.m. to 6 p,m Monday through 
Friday. Call us at 314 576-5020. Your 
VISA or MasterCard is welcome. Please 
specify diskette size for FLEX versions. 
Software serial number Is required for 
the UnlFLEX version of DYNACALC. 



ORDER YOUR 



DYNACALC 



TM 



TODAY 



% 

Computer Syateme Center 

13J61 Olive Blvd. 

Cheeterlield, MO 63017 

(314)576 $020 

f^Q.Q Version NOW Available 
^^"** $250.00 

UniFLEX software prices includemalntenancefor the first year. 
DYNACALC, DYNAMITE, and DYNAMITE + 



Foreign Deafen: 

Australia & Southeast Asia: order from 
Paris Radio Electronics, 7A Burton St.. 
Darlinghurst. NSW 2010 Sydney, Tele- 
phone: 02-357-51 11. 

United Kingdom: order from Compu- 
sense. Ltd.. PO Box 169. London N13 4HT. 
Telephone: 01 882 0661. 

Scandinavia: order from Swedish Elec- 
tronics hk AB. Murergatan 23-25. Uppsala 
S 754 37 Sweden. Telephone: 18 25-30-00 



are trademarks of Computer Systems Center. 

F MATE ia ft Iradamaffc ol Data-Comp 

ViakCalc It • iridamarfc of VialCorp 

OS* is ft tradamir* oi Mlcrowara and Motorola 

FLEX an* UnlFLEX art V adama<M of TSC 



ALSOFROMCSC— 

DYNAMITE + 
"THE CODE BUSTER" 

now available for UniFLEX 
OS.9 verelon soon 

DYNAMITE + is a new version of DYNA* 
MITE, our popular 6809/6800 disassembler 
peckage for 6809 FLEX. Present users of 
DYNAMITE can upgrade to DYNAMITE + by 
sending us the original DYNAMITE diskette 
and 140 {plus $5 for foreign postage), 
DYNAMITE + does everything DYNAMITE 
does, and more! A cross-reference gener- 
ator has been added, label files are now 
maintained only In text form (LABEL EQU 
Jxxxx). and boundary file specifications 
have been tremendously simplified, which 
makes if easier to disassemble large pro- 
grams containing iolsof big tables. 

The UniFLEX version of DYNAMITE + 
does everything the FLEX version does, and 
also automatically handles system calls 
and'info'areas. 

DYNAMITE* is available lor $100 per 
copy on FLEX (specify diskette size), and 
1300 on UniFLEX. Foreign orders add $5 per 
copy for postage. 
'68 Micro Journal 



OS/9, FLEX, COLOR FLEX, UNIFLEX Software* 

SUPER SLEUTH DISASSEMBLER S99-FLEX S100-UNIFLEX S101-OS/9 

■ '■ •. p/o©»am pfQcataaa 6800 l 2 3SSS 0502 proyarrai •*v*+q tha iw to «r>aryz^ ™cd*t. and rtiwjulai («*n t 



Z-80/8080/5 SUPER SLEUTH DISASSEMBLER $99 FLEX S100-UNIFLEX S101-OS/9 

T>a» fTKT of SUPER SLEUTH Pmoa— M Z4ott»0* Obfad C0d#«n *a OOOOvi 9 

CROSS-ASSEMBLERS each $50 3/S100-FLEX each $60 5/S120-UNIFLEX each $55 3/$110-OS/9 

ig»MTtt and maoo* anaJav lha usar lo pnxvu fiBOO-'i, 680S» 6502. 2 80, 60905 Uty ia in «7^ formal Tha T9C nvoo aaaamtaa? « rao>«ati tor FVEJcuwif L£X 

and tha OSM Mmttr » m&*Q •* OS* 

6805 and 6502 DEBUGGING SIMULATORS each $75-FLEX $80-UNIFLEX S100-OS/9 

Thaaa p>oo/an* anafato Nuwto >mar aciwatv analyze TOdrfy. and dabug p4)6805 and 6602 oOjad coda 

6502-TO-6809 XLATOR SYSTEM $75-FLEX $80-UNIFLEX $85-OS/9 

Th» program enafcaj* tho uxor lo (rar«0at« 6902 aaaanrbfe* coda MO OOOOaVMrnOM coda, nohng n*uct OsnwnKAl 

6800-6809 & 6809 PIC XLATORS both $50-FLEX $60-UNIFLEX $75-OS/9 

Thaaa p/ogrami onaWe mo u»ar lo (ranatoa 6600 1 a&sarvjte? pn^jrams to 6609 mrwromc* and to oxwi 6609 programi to poaaiorvtAdaparidaril coda and data. ub"o PC, S. 

U< X. and V as taaa raptiars 

UNIFLEX SIMULATOR FOR FLEX $100-FLEX $110-UNIFLEX 

This program aaania* tha user to OnOuu UNIFLEX a*A«mt*H proo/im* uaing lha TSC DEBUG and olhai 1ac*t«t ol FLEX 

OS/9 SIMULATOR FOR FLEX $101 -FLEX 

Tlxs program ertaiaaa rho usot to oabug OS'S aaaamOiar programs wig lha TSC 066UC and crftw tacJriwt ol FLEX 

FULL SCREEN FORMS DISPLAY (6809 X-BASIC) $50-FLEX $75-UNIFLEX 

Thrv* progrwro anaftfe tha user to daina and oana«ate laDka^rvao lufl-aCraan ditptoy and data-anlry programs 

FULL SCREEN MAILING LIST (6809 X-BASIC) S100-FLEX $110-UNIFLEX 

Those programs anaato lha use* to dahna and mamta^ mailing in*i or tantad data baaaa 

FULL SCREEN INVENTORY/MRP (6809 X-BASIC) $100-FLEX $150 UNIFLEX 

Thaaa programs ansftaj t*a use* 10 datoa and martam ala WatU ti ond ncfcoa htararxhtal mawnara rao>-f*rnaTrt ptarawg 

TABULA RASA SPREADSHEET (6809 X-BASIC) S100-FLEX $200-UNIFLEX 

Thaaa programs anaoia tha usa* lo ganavaia and fnaman tabt^ar avnaAaaon scnamax p m »afcaj a •"**• w nrtimt* and *V«Wfcaa*J raooft-oanarataxr, tanlai to 

DESKTOP PLAN <TM T 



TSC BASIC/XPC UTILITY PROGRAMS all S25-FLEX $50-UNIFLEX 

Thasa programs ananas tha usa* lo rvsaojuanta or croaavataranoa any Base poja-am andQaoarata XPC Base sod programs 

program, h ^SL^p^S^SSJSiJt^^ °* Computer Systems Consultants, Inc. 

For VtSA and MASTER CARD gn* account, axp dale, pnona US Ajnds only — add 5% <10% **«*JH lor srtveang 1 454 LattB Lane* ConVSrS, GA 30207 

Opan Pircftaaa Oroats N* D and B ratad caanti onry Can or wma tor catateg and daUst «rtomaapr> <•»*•»- t- */w *«■« im^.ima 

4 tadsmar* Tachncat Srsiams Consuiants and Miero*ars Telephone NUmbSf 404-4^3-1717/4570 



^nUTO-COMiV| 

The 'modem 1 
program that 
automates 
time sharing 
communications. 

1 ) Send text file from persona] computer d*sk to 
emote memfreme computer 

2) Save mcornrnQ text to disk We (venfys 
aeceptence of XON/XOFF controls] 

3) Slow crensmrseron mode based on character 
verify for systems which requre speed below 
baud rate 

A) Eight software selectable UART modes; 8 btt.7 bit 
5] Self adapts to amount of memory n your computer 
6] fkjr& 10 as little as 1 2K bytes or up to 65K bytes 

7) Reads and wntes files of phone numt>ers to be 
dtaied 

8) Makes any modem a smart modern. 




C*« Or Wrttm For Further information 
Priced at $75 wsa mastercard aojpiw 

SPECIAL 

HOBBYIST 

PRICE 

$39.95 

5 OGK ONLY 



2BBB 



1 8 PAGE MANUAL ONLY $3.95 
SORRY, NO C.O.D.S 

6712 EAST PfWDlO ST • SCOTTSOAII, AZ. B5254 

FOM INFORMATION CAUL (SOS} SS1-1SS7 
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New! 

Public Domain small -C 

(POS-C) FOR 6809! 

Only %25M\ 



NEVf k PUBLIC OOHAIH SMiLL-C FOF €6091 SOURCE, BINA8T, 
AND D0OIHENTA7X0N ALL OH DISKS I Mrittan for uaa vith 
SWT?C*a ASH09, tranaportabla to othar aaaaablera. PD3-C09 
ONLY 125.001 

Tfela la not tha aaaa packac* aa Hiddla-C(ta) , and It doaa 
not aupport all of tha aaaa faaturaa. Shlppad on thraa 5" 
Or two B* dlaka. Add $5 for hardcopy of aaiiual. 

Hiddla-C 2.02 atill only $99.00. 

HEFEKCNCES FOR THK PROrBSSlOHAL PROCRAMIES 



w/Mlddla-C 


Books only 


Iba C ProfraaaUQa* L^navaf* 


$15.00 


H7.00 


Sortwara Tool a 


15.00 


17.00 


Softwara Too la in Paaoal 


15.00 


17.00 


C Jtotaa 


17.00 


19.00 


A Portabla Coapilar for C 


t5.00 


12.00 



Spaclfy diak alta. Prleaa aood until Juna lat. Ovaraaaa, 
plaaaa add $3.00 par ordar * $1.50 Vr book for air ajall. 
Add $1 bandllna For Vlaa/HC. No purobaaa ordar a, plaaaa. 
Tata a raaldanta: aalaa tax la $0.25/dl«k, 51 on books. 
Sand 3ASE for currant Hatio* of pvblio doaaln aoftware. 

word's worth 

P.O. Box 28954 
Oillftt,Taxa* 7622B 

(214) 321 92B5 
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All C Compilers 

are Not Created 

Equal! 



fd *m 



We didn't cut any corners 

when we created lntrol-C/6809, 

and the benefits you get 

really show. 

lntrol-C/6809 generates object code that is 
typically only half the sue and executes twice 
as fast as code produced by any other 6609C 
compiler on the market! 

We did an equally better job in other ways 
too. lntrol-C/6809 supports full C, works 
reliably, is a pleasure to use, and has been 
"the compiler of choice" among discrimi- 
nating programmers since it came on the 
market more than a year ago. 

Available for: 

OS9« (J37S), FLEX" (J375), UniFLEX" (S425). 

One-year maintenance, $100. 

Trademark*; •Mictoware Inc.. •■Technical System* Coo&u'ram* 




CORPORATION 



647 W. Virginia 9t. Milwaukee, WI 53204 
(414) 276-2937 



Color Computet Enhancements from Micro Technical Products 



'LCJ W-Uw r Cut Adapt* 

nail— » *u Ottr Cg**» 



*ftOML-fl0M PAK load* Proonm 

i»W NOUHUOort 09* «an* 






MxMUAi 
laOf***JMTf 



U*mim i 



AittmbM A Ttsiod 



•PP-lt-EPHQM I 



J75 00 



H09 RH> 90* 4/K4SOK*v*t) 
*k* Uivrnv* pew* «w*c*i0 at*** 
Bart PC Board A 

OocunMnlition S?5 00 

Compel* Kit. 145.00 

•PAK ATTACK- 

from Compifltrwaca 

'ni«ct«m wtiirf eoiof* 
TapO J*«95 

'Super Color* Writer II- 
From Notion 

TCP) ALL w*4 (TOW* IQT tM 



HO^rpAxTaTV^oltk S99 95 
ORDER 



Tape. J25.00 Dtili ...S»00 
•flOUfJL- BASIC ROM (MsabHf 

Oa*to 0* BASIC AMI » la**0 

BASIC A0M 

f t*t * *drJ «UU» 

S«90K WV% v SttCMB «m» * ftAS* 

Cw»q pow «m ^ row % 
Tap* S15 00 (felt S19 00 

*PlUSa~Sn RAM EniMor 

«M<* MS* >0f» RAW *f»f v* C* 

pop*"* Jft** BASK 
lipt... J15.00 Disk S19 00 

•BANMER-Mc*ng Miirqutt 
Pirogram 

m o v i n gwttti 

*0M CftoOM Cfltrt & SMd 

Tapt J1900 Otak 12300 

'SPECIAL SAf!IK3^»»MO» 
•m* tiw iwtuit Soot* Goo* vtaw »t Md 

«i LCA 4* * 



Micro Technical Products, Inc. 

mn S«nne SurtelOSJ 
Me» AZ 8520 U602> 834-0283 

AM 5% lor sfeppmg nwwwm S? 00 

Overseas 10%. nun $4 00 Antona. 40d 
5% lax vtsa & lAaflwCard wdome 



Wwftof for reasons of feel oppeorofrce, or refiobJlrry, 
you like motf Color Computer owners would probobry 
prefer o berrer keyboOfd 



Now. you con hove one. 



$89.95 




axrx*rr+r» it* Color Cornpt^niM* c**Krm» Ay* Mv krybvd *»V»g>i*y cdwicdi 
OB** V»QO 0* «**»» Op»«na« A 9f> ON toTMOd HWnv a ptMtM 1h» WldDkrkrt 

eccupvwg ih» o«to pave* * «t>» hryt»ai»<J morra. or* on odaod bora* Vtm&m **tyoiao*n 
K^Nn. or «■«* fto torr» w t i» *>^o row« ipraafy adap'vd <hvo <««»> » *«*+ H099 

ondi— i<i«i kro^^ro>>t<h»y^<^»<M>»UTh»NiM>QJe»Qa>&mmodri><*wOJpr 
Cflrnj*^ btri%wAo qo«^»w«»«^ itvvAixtv^r & cif»h>"*» cx»^«jrte/»> ondpv*x^wb 
Owquwv « *^nn * q «mp*» pbo^n c »» * u rt u n ng^Q no sddwoQ 9 o*rwg 
>*< an <i Th»v««A^h^pcsOTfci9ftClr(C^ffdinQn^««^w»WirT«vwk«^c>iiack^ed 
b^oboewnac^^*«p9ianrVi9l200C«^nsk^rM«^pMt^«aO l*«o»*««y»o»»» , *>**«^ 
O»0>aidi4B eA»«»«%tt^EQr^vart0fOJorOvT^MWianriitworTw«4orir<«fv««0iF<ott0 
k^wn a a or CI) Color and 1CP 100 arv*» fear *P«*y v^»0^ vision v^* ^o^* «^»r> 

Mlcronix Syotemo Corporation 

• J Q4Dr«n*r SWMkf t 
91 OWM UOWOl 
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ENGINEERS/TECHNICIANS 

THE MICRO 68000 
IS DESIGNED FOR YOU! 

COMPLETE, READY-TO-GO SYSTEM INCLUDES: 

□ 6^&mp switching power supply □ Keyboard 

□ Display -Hex & Binary □ Pete Bug keyboard 
monitor □ Optional Macs Bug CRT monitor □ At- 
tractive cabinet D Dual RS232 interface D 32 bit 
parallel I/O □ Versabus compatibility □ The only 
system that provides for direct entry of 68000 
machine code. 

For Information call (619) 566-3911 

Computer System Associates 

7562 Trade Street. San Diego. CA 92121 



an 




DATA ACQUISITION ON THE SS50 BUS 



NOW THERE IS AVAILABLE ON THE SSSO BUS 
INDUSTRIAL QUALITY BOARDS FOR YOUR 
DEMANDING DATA ACQUISITION NEEDS 



ADC 1200 



- MlQH SPEED 12 Bit A/D BOARD 

- t$ CHANNELS Slry9*++nd*d or Eight 0*trt*ttti*t 

- 25 wSFC CON VERSION TIME 

- 90k SAMPLES PER SECOND tn vnokt Cttanntt Burtt Mod* 

- INSTRUMENTATION AMPLIFIER/ Roalatot S***Ct*&0 Gain 

- Contained on Slngta 30 Pin Board 

- CONFIGURE ABLE in • Vrktty of Computar Contro lad Mwtoi 

- SOFTWARE EXAMPLES 
-17*5 



-D4C 1220- 



- HiQH SPEED 12 &IT O/A BOARD 

- TWO INDEPENDENT DIGITAL TO ANALOG CONVERTERS 

- 10 uSEC SETTLfNQ TIME 

- DOUBLE BUfFERED 

- BLANKING OUTPUT PULSE 

- FOUR OUANDRANT MULTIPLY u ting EXTERNAL REFERENCE input 

- Contained on Smgia3Q Pin Board 

- ttot 



GPIB4800 



— IEEE 498 CONTROLLER BOARD 

— FULL Taikar, U*tan*r t Oonttoltar. Muff 

— t/Hi Iff Tl 99 H Conttallmr Cnip 

— Standard IEEE 498 Pinal Mount Connactot 

— Contained on Singia 30 pin Board 

— Coming Soon 

WRITE OR CALL TODAY FOR COMPLETE DATA 

INDUSTRIAL QUALt TV PRODUCTS 
^n - ALSO CP/M to* tha SSSO BUS 

t* I / ^ "*"** "** iB09 SOF TBOAR0 



1303)4*9 1 71 1 

>82 r i COUNTY LINE ROAD T 

LONGMONT C080&01 



ACCOUNTS 
PAYABLE 

loka n*m ft****** <h* of 
•aoiog ygi» accost poyatxj 

InJwuc**** AcctxrtwiQ tiT+m rr* 
pCCOohti poyOOl* pockog* 
luppoin fn»i» ouHrond»«o 



OS9 Application Software 

Specialty Electronics, Inc. 



Er*v gf as&ii c**Oii »»gv*> 



ct cu ■ >i^A9 ptrtad c^ocfci *^*» 



5 *v«Om ogng * cK(Ut» 

Ono 0*000* g*n«rol itd^fr 

J joo 00#*ng curtxrw at<dv 
numDr f*ae* i r*g Oft<J buy*' 



Comp** auort *o»u pr« 



ip* <:<*■£ *j* aa*#i £u|tom*f 
grOuc* 0(vi9OUid«mi and 



Acaxm ****** ^ood* 



$299 



GENERAL LEOGER 
CASH JOURNAL 

fhm gwwc* *40» * *>• C4Wta» Of 
«w Scw»q*v E>*oto^=i Acccvn* 

Og 9y»f»m w<fh m# OOOOQv you 

can 



2 D«fm» account Atmit 
arta ^ffcEcOLrr» 



4 Ro«f t» ncyia cat* *xiro or 



4 frc»o»Qc*«ofou»*ttvic»au 
4 «rt^iaoo«><io«tBvio«OMa» 
U»t rex mxilU company 



$399 



ACCOUNTS 
RECEIVABLE 

*<** Accolt*i a»c««QO(ti canbt 
iB l Dm d wrtH a nnoirrxim of tin^i 

1 Pvgcrfa <^o>C«^) oaot ana 
coai «r»#»tfe# ^ ano po*oi 
pov«^r>T» 

2 P'Ogr»i$iw» toll>ir%a OA<J 

3 *«no of o*Cd» KMCii#0 Or 

4 Hmw cuV&*+n mr*wma (* 

5 SWT>^Tfi| Or* QWP , D%d 
MO* CTT¥^T*| VSIBd Or ^QV^) 

eatery 

O Ja*Ol •n>«*oe)ian with l>v# 



«< VMU %> 0>O PO«*vd «0 tOOJ 



» cooe 

$299 



INVENTORY 



fn* Sp«C«Olty El»Clranic$ 
(ntVrOChv* Accour>f.ng Syil*m 
****** Ccn»o4 Packog* pronOM 

»>• rocs lot compia* cv*9 of o 
iO'Q* OfyO OCf4M« ir\v«rt1ar v 



aucyvif*** on orov i«M> i 



cot»gO f» groupi iooo<>»' 
• V»«fc#>«y\ 0*CM* HMt *w*oaf 
o\Mwt4*a* ik 
3 S*y**m +XK0 ana iwe&^c* 



$299 



J§» 



PAYROLL 



ih* Amounting 9y»«wr> orondvi 
Pdytol u^oort «m«er> go«» Pwo^d 
wnnog oaycr>«ciii <H ttotwi *u 
ttuom 



arm monthly pov p#f hmJi 
J Howrty mIcky wjCOtWo r»ofc 
pay cwwyu4« o»»i» h b oao 
c<FT>o*A»o«O(V0OvCuteQ0A«aon<S 

3 O*McHto<Vwt*ona«l0f»pov> 

NtOt 



4 nwa ch#cM «vt* crwch 
• lac iot>'*i ttitow wi»r 



Payioii i-code 

$425 




Compete OocumentotHXi S 1 9 95 

' OS9 and Bo$lc 09 ore trademarks of M*crowore. Inc. ond Molorolo Corp, 



PO Bo*S41 
2110 W Wiow 



SHchHy fUcfrMies 



{406) 233-1632 
Ink*. OK 73701 



J 
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INTELLIGENT PRINTER INTERFACE 



For 55-30 and SS-30C Computers (SWTPc, GIMIX, S5B and Others) 



COSTS ABOUT THE SAME AS AN PRO I NARY INTERFACE. ur Intelligent Printer Inter- 
face offers mucti more. First, it features an on-board MC6802, 2K bytes firmware and 2K bytes (ex- 
pandable to 8K) on RAM buffer We have both RS-232-C Serial and Centronics parallel versions. 
Both versions fit on the SS-30 (or SS-30C) bus. They work with standard system software. On-board 
buffering of print data is automatic and allows print spooling. But, there is more: we have features 
which can be invoked under software control. Control sequences may be intermingled with print 
lines. 



EXT FORMATTING: 



set left/rlght/top/bot- 
tom margins • set page length/ page 
size • set horizontal /vertical tabs. 



SIS discard print, halt printer, restart 
printer, halt at top of page, disable buf- 
fering, test buffer, test printer 



ignore specified characters, 
translate characters, auto linefeed, 
download user-written filter program 




Scientific Instalments 

204N, Link Lane. Alpha 9 
Foit Collins. Colorado 60524 
(303)484-1913 



PRINTER INTERFACE 



LJ 

VCM-SP Serial Printer version, assembled, 

tested Owner's Manual $129,95 

VCM-PP Parallel Printer version, assembled, 

tested &Owner'sManual $119.95 

Cable assembly (serial or parallel type printer) 

$19-95 

Please add $3.00 S/H charges per order. Color- 
ado residents add 3% tax. MC/VISA accepted 

JCP(Job Control Program) for 6800/6809 FLEX 
systems (see our ad In January '83 '68' Micro 

Journal) $49.95 

JCP Source + Object $89,95 

^LEXtm is a registered iridemtr* of Ttctin<c*l Syftwnt Consultant*, inc. 
GentronkcftTM '* • r«gi»t«red tredemfrK ol Centronics Oats Corp. 



=*\ 



our EPROM PROGRAMMER with the field. 

All data lahm dlcectLy fxon »m»*if"actufter*» cufrwvt wt^rciiir^, Sofr^rs. 
interface*, or ptntonality vxkilaa my aJao be required at aQdltlcnal coat. 



y Tripi* voltage O'lrn 
• s>«pli«i itx kit fbpq 



I A I B I c 



INTERFACE 



INTELLIGENT 



27t>4» 

2506 

2708* 

27$8 

2516 

2716 

2716* 

2532 

2732 

2732A 

2564 

2764 

2526 

27126 

2616 

66764 

6746 

6749 



TOTAL 



PRICE 



S3& 




PAR 


PAR 


SER 


S30 


SER 


SER 


NO 


NO 


NO 


YES 


NO 


YES 


YES 


• 


• 


• 

• 
• 

• 

• 
• 
• 

• 


• 
• 


• 
• 

• 

• 
• 
• 
• 


• 
• 

• 
• 
• 

• 
• 


• 

• 
• 

• 

• 
• 
• 

• 


11 


3 


12 


6 


11 


11 


H 


5125 


*45* 


ties 


S2S9 


1375 


S46« 


5575 



irW* iPRTl pngraamer. SI2*- Karon* llty mvfclU For HOB, 2lS8. 2516. and 
2716 tncii*Jad, Opacify OM, <U«k at**, and <**r»tt^ *yat«p (TSC'a PLBC or 
SSB'a O0B) **>*w\ ordering. Manual only. $10/ ra&axJabla with KTOW* pun^aa*, 

UNITEK ■ P.O. Box 671 • Emporia, VA 23847 
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POOR MAIMS 
FLOPPY 

HIGH SPEED CASSETTE SYSTEM 

Now for the TRS-60 Cofor Computer 

The JPC fi?OOUCT5 High Speed Cassette System. In operation 
for over 4 years, rs now available for al/ versions of the Radio 
Shack« Color Computer 
• TC-8C — Plugs directly inio the expansion pat of your 

TRS-80 Color Co purr. It is fulry compatible with all 

veisions of the Color Computer from the standard 4K lo 

the Extended 32K 

. FAST ~_ TwJce the speed of the Color Comp ter Syitem. 

• RELIABLE — Less than one error in a million otts, 

• SUPPOI7I5 TWO DRIVES — Software selectable. 

• ALL FILE TYPES — BASIC machine language, data. 

• MOTOR CONTROL — Two on-board relay* 

• EPROM OPERATING SYSTEM 

• SfttRE EPROM SOCKET — 27 1 6 or 2732 compatible 

• OPTIONAL JBUG MONITOR — EPROM or Cassette 

• 6809 Assembler • Memory modify and list 

• 6809 Dis-assembl • Break pofnt traps 

• ASSEMBLED and TESTED 



$34 95 



TC.8C S 129.95 JBU (EPROM) 

JBUG (Cassette).... S29.9S 

TEEMS; 

CtoTv Maflt* Card or Vba 
St***"? & H*&ng n $0\u%\ 
SS SO [Carvkia] $15 00 

S00-600*MMST jf IS ''^J^y 
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FINALLY for 6809 

LATEST TECHNOLOGY 

yet AFFORDABLE 

REMOVABLE 5 MB WINCHESTER 

D Host idvinced Winchester drive * 3.9% Nith 

REMOVABLE cartridge or FIXED tedia 
D Siill size - half minifloppy fori 
D Lon pover consumption - lo# beat, no noi§* 
O ftt quirts standard minifloppy poaer - 5V f 12V only 
O Intel liqeot microprocessor based controller with 

sophisticated diagnostic functions 
D Fist data iccess by buffered seek tode 
D Operates with all eiisting CPU speeds 
D Eipandable to include nore drives 

complete subsystem is available for FLEX 
including software - $2395. - 

(514)737-8787 



interfacing technologies inc. 



P.O.BOI 576 Snondon 

WO Sourret Ave. Itontreal Quebec, N3I 3T7 



CM.IKDAR-CLOCR / TIKER / FARALLXL FORT 




Calaadar - Clock 



lacatval Tl««r 






r«T«u«i i/o pott — 



COQtCfUC tiOQ 



»«H» talliril • til f.ralllt pact 



I.lir M<IK1«. i«l<ii Mint, 

Haai>al •• Wall docuaa atad - 36 p«|ti 



Anaablad and taalad $119.93 Rl« »69.9S 

Ooldplatad bui coon 7.10 I KHt option 2.30 

Dial 3 or ft io. SSX or Flan* 0&9 AvBMOHv NOW .4.93 



T»4i4iii »r t..h«U.l Hi 



i Ca..«|«..r*. 



R0I1ITS0K RLRCTR0RIC9 
100} Uan Sand. Dr. SE 
Albuquarqua, NH fl ? 1 2 3 



FhQfti (50$) 194-0023 

MM ratldiDEi add M til 

Add *] 5hlpplnt fc Handling 



W MICRO JOURNAL 

<A> The only ALL 6800 Computer Magazine. 
<A» More 6800 material than all the others com- 
bined; MAGAZINE COMPARISON 
(2 yean) 
Monthly Avtregte 

MOO Articles TOTAL 

KB BYTE CC DOBB'S PAGES 

7.8 6,4 2.7 2.2 19.1 ea. mo. 

Average cost for all four each month: $6. S3 
(Based on advertised 1-year subscription price) 

68' cost per month: $2.04 

Trial's Rightl Mucfi. Much More 

for About 

1/3 the Cost' 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Master Charge Q — VISA □ 

Card# Exp. Date 

For □ 1-Year Q 2 Years □ 3 Years 



Enclosed: $_ 



Nama- 



Street- 
City 



State. 



-Z«P- 



My^Computer Is: 



6S Mfcro Journal 

6900 CMundn SmJih Rd, 

Hilton. TH 37343 



SUBSCRIPTION RATES 

USA 
I Year S24.50, 2 Year 542,50, 3 Year $64,50 

•FOREIGN SURFACE Add Si 2, 00 per Year to USA Price 

•FOREIGN AIRMAIL Add S36,00 per Year to USA Price 

••CANADA & MEXTOO Add S5.50 per Year to USA Price 
Cash (USA) or drawn on a USA 8ank!M 




S?8Sv**^ 




& 
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Universal Data Research, Inc. Introduces 




m 




300 Baud Acoustic. 
300 Baud Direct 



300 Baud Auto Answer 
1200 Baud Direct 



1200 Baud Auto Answer 
300/1200 Auto Answer. 

300/1200 Auto Dial 

Modem 2 Port I/O Card _ 
with speed select 



$149.00 
$179.00 
$219.00 
$449.00 
$499.00 
$549.00 
$599.00 
$119.00 

$449 



Printer Special: Okidata 82A 

Oealer Inquiries Welcome • Call or Write For Free Catalogue 



r 



FLEX* and UniFLEX* 

software for the 6809 




/ 










DATA BASE 












MANAGER 


^ 
















CUSTOMER 
PROGRAM 




VENDOR 
PROGRAM 




I 










ORDER 
FNTRY 




INVENTORY 


PURCHASE 
ORDER 








/ 










ACCOUNTS 
RECEIVABLE 




GENERAL 

LEDGER 


ACCOUNTS 
PAYABLE 
















PAYROLL 





Integrated 
Business Programs 



Accounts Payable 



Accounts Receivable. 

General Ledger 

Inventory 2 

Payroll 



Data Base Manager. 
Word Processing 

Software 

WP Menu 

P Control 



FLEX 
$295 
$295 
$295 
$295 
$295 
$350 

$295 



UniFLEX 

$395 

$395 

$395 

$395 

$395 

$450 



$395 
$150 
$150 




NIVERSAL 
DATA 
RESEARCH 
|NC. 




'FLEX & UniFLEX at a Trademarks of Tachntcat Systems 



2457 Wehrle Drive, D-68. Buffalo, NY 14221 
PHONE (716)631-3011 



Dealer inquires Welcome 
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64K SS-50 STATIC RAM 



ti? 



$199 



00 

{48K KIT) 










BLANK PC BOARD 

WITH DOCUMENTATION 

$52 



SUPPORT ICs + CAPS - $18-00 
FULL SOCKET SET - $15.00 



ASSEMBLED AND TESTED ADD $40 

FEATURES: 

• Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 

• Fully supports Extended Addressing. 

• 64K draws only approximately 500 MA. 



56K 
64K 



$249 
S299 



200 NS RAMs are standard. (TOSHIBA makes TMM 2016s as fast as 100 NS. FOR 

YOUR HIGH SPEED APPLICATIONS.) 

Board is configured as 3-16K blocks and 8-2K blocks (within any 64K block) 

for maximum flexibility. 

2716 EPROMs may be installed anywhere on Board. 

Top 16K may be disabled in 2K blocks to avoid any I/O conllicts. 

One Board supports both RAM and EPROM. 

RAM supports 2MHZ operation at no extra charge! 

Board may be partially populated in 16K increments. 

16K STATIC RAMS? 



The new 2K x 8. 24 PIN. static RAMs are the next generation of high density, high 
speed, tow power, RAMs Pioneered by such companies as HITACHI and 
TOSHIBA, and soon to be second sourced by most major U S manufacturers, 
these ultra low power parts, feature 2716 compatible pin out Thus fully 
interchangeable ROM RAM boards are at last a reality, and you get BLINOING 
speed and LOW power thrown in lor virtually nothing 



Digital Research Computers 

<OF TEXAS) 
P.O. BOX 401565 * GARLAND. TEXAS 75040 • <214) 271-3536 



TERMS: Arid S? 00 posrage We pay balance Older wide* $t5 add 75C 
handhng No COD We accept Visa and MastO'Charge Te* Res add 5% 
T a* F c jrngn okIpts f excepi Canada) add 20*n P & M Orders ove* $50. add 
flf>C for ins Lira no 
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POWERFUL COLOR GRAFhUCS 
Uses Ihe new TMS9918A Video Display Pro- 
cesses H»gh resolution 256 * 19? pixel display 
with 15 colors 16k Bytes ol onboard RAM does 
not reduce user memory 3? graphic images can 
be ind»viduatly moved with simple X Y commands 
lor smooth animation 
External Video input a flows subtitling 
NTSC composite video output 
SOUND EFFECTS AND MUSIC 
Three AY3-891 Programmable Sound 

Generators 
Nine simultaneous voices 
lnree independent noise sources 
Onboard stereo am pi I her drives two 8 ohm 

speakers 
ADDITIONAL I/O CAPABILITIES 
Eight analog inpuls with 8 bit resolution 
Supports lour joysticks with pushbutton switches 
Eight bft parallel I/O port 
Entire unit maps into 256 bytes ol memory 
DOCUMENTATION AND SOFTWARE 
Programming manuals for Video and Sound 

Processors 
Subroutine library and Super Demo Maze Game 
Example programs in BASIC, FBASIC and 

ASSEMBLY 
User library and sales support 



ARCAOE SO.assembled and tested $325 00 

Video and Audio connector set 1 5 00 

4 Joystick connector sei 1 5 00 

? Radio Shack Joysticks 24 00 

UHF channel 33 modulator 32 00 

Gold Molex connectors ^? 00 

A/BASIC lor 6800 1 1000 

FBASIC lor 6809 11 00 

FBASIC (with ARCADE SO) 75 00 

FBASIC {manual only) 10 00 

ARCAOE 80 (TRS Model 1) 395 00 

ARCAOE 100(S-700 BUSS) 37500 

ARCAOE 50 RGB 375 00 

LABVlDEOfMolorolaEXORbus) 375 00 

LABVIDEORGB 375 00 

NEW MV096809 Processor Board 225 00 

•Comes assembled with PIA and ACIA 

•12 Sockets lor 271 6, 2732 Of RAM 

•Supports DMA disk I/O 

•Ideal lor 6809 upgrade or process control 

AMDEK COLOR I Monitor 425.00 

AMDEK COLOR II Monitor 79900 

AMDEK COLOR III Monitor 49900 

256 K Dynamic Memory Board 795. 00 

(assembled) 

256K Dynamic Memory Board 39500 

(assembled w/S4K> 

64 K Dynamic Memoiy Board 295 00 
(assembled) 

Specily 5" or 8" soft sector disk lorTSC's FLEX or 
MICPtOWARESOS/9 system 
TERMS CASH. VISA, MC< C O.D 



risque 



TERMINUS DESIGN INC. in conjunction with 
Microware Systems Corporation, is proud to an- 
nounce FBAStOan enhancement of Microware's 
6800 A/BASIC Their last compiled BASIC has been 
adapted for 6809 users with added video and 
sound features lor ARCADE 50 users FBASIC is a 
irue compiler that produces optimized machine 
tenguagemodules which are ROMable and require 
no Run-Time package FBASJC requires lass 
memory overhead and runs hundredsof limes fas- 
ter than BASIC interpreters. It supports standard 
BASIC inslructlonincludingSlnng functions, DiBk 
I/O and last integer arithmetic with multiple-preci- 
sion capability Graphics verbs and functions lully 
support the Arcade 50 Arcade statements include: 



INIT 


MODE 


BLANK 


8ACKDROP 


SIZE 


MAG 


VREG 


DELAY 


MOVE 


DRAW 


FCOLOR 


J SWITCH 


REMOVE 


RDRAW 


BCOlO« 


SWITCH 


PSC 


TONE 


ENVL 


VOLUME 


AOC 


SPRITE 


SPNAME 


ENDEF 


SPCOLOR 


RSPRI7E 


SPDEF 


PATDEF 


VPEEK 


VPOKE 


VPRINT 






TERMINUS 


DESIGN 


INC 




16 SCAR8ROUGH ROAD 




ELLENWOOD. GA 300*9 




<4Q4J 474^86* 





mmmmmmmmmmmmmmwmmmwmm.Mmmm 



68 MK3K) JOURNAL PTORAKS <* DI9C 

Disk Jl: FILES0RT, MINICAT, MINIC0PY. MINIFMS, 

••LIFETIME, •POETRY. •■FO00LIST, ••0IET* 
Disk 02: 0ISKE0IT w/ Inst. & fixes. PRIME. *»RMOO, 

••SNOOPY, ••F00T8ALL. •^EXPAWN. ••LIFETIME. 
Disk #3: C8UG09. SECt, SEC2, FIN), TABLE2. INTEXT, 

0ISK-EXP, •0ISKSAVE. 
Disk ##: MAILING PROGRAM, »FINDDAT. "CHANGE, 

# T£STDISK« 
Disk 15: •DISKFIX 1, *DISKFIX 2, "LETTER. 

••L0VESIGN, ^LACKJAX. ••BOWLING* 
Olsk #6: •"PURCHASE ORDER, INDEX (Disk tile Indx), 
Disk #7: Linking Loader 4 RL0AD. Harkness 
Disk #B: CRTSET, Lanpher (May '82> 
Disk #9; DATECOPY, DISKFIX9 (Aug '82) 

NOTE: All are as published or received by 6B 
ttlcro Journal, soma neve fixes and patches. 

This Is a reader service only I No Werrenty Is 
offer»*J or Implied, they are as received and ere 
for reader convenience ONLY. Also 6B00 and 6809 
programs ere mixed, as each Is fairly simple 
(mostly) to convert to the other. 

PRICE: 6" Olsk 119.95 - 5" Disk S 17.95 

68 MICRO JOURNAL 

POB 794 

Hlxson, TN 37343 

615-842-4600 

* Indicates 6800. •• Indicates BASIC SWTPC or 
TSC - 6B09 no Indicator. 

MASTER CARD - VISA accepted - Foreign add 
sufficient postage surface or alr!T 



WINCHESTER 

FOR MOTOROLA 

EXORCISOR/MDOS 

D 10 MB Winchester hard disk runs MDOS on Motorola 
Exorcisor System D No modification to MDOS required 
D MOOS based software stays alive □ All user software 
operates without modification □ Optional SA-801R flex- 
ible diskette drive system D Optional 10 MB removable 
cartridge. 

^ MW^ For information call (619) 566-3911 

■ J ■] Computer System Associates 

^^ I I 7562 Trade Street, San Dieqo. CA 92121 
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AAA Chicago Computer Center 



Plektra 

COMPUTER PRODUCTS 



ELEKTRA CABIN T Mid* of heevywerghl 0090' thick aluminum Interior is I6-U2~ 

w»de by ?1 -7/f- 0NC by 6-9/4 high IWry duty A C line cord A C rue* hotde* EMI 

fitter F en witn fitter Bk^|»«^Am lOcufSXrfstor O Type data connectors Fiont penal 

hu key onroif power switch. 2 iiiurroneted puah button switch (Reset snd 

NMI/Abon), and rwo cutouts for 5-1/4" dttk drives 

POWER SUPPLY Highest quslity finaar power Supply CONSERVATIVELY rsted At t5a 

f$ 8v. 3s ^ I6v. 3m # * I6v 3 primsry inputs for i*gm\ rsted. end heevy loading 

DISK REOUL ATOR BOARD WITH CABLESStandard version for 2 ftoppydnvea Heivy 

duty version for 1 Winchester drjve end I floppy dr*ve 

ELEKTRA UNIVERSAL MOTHERBOARD Heavyweight 125 Ihiefc 18 long by 9" 

Wide 11 memory (£0 P»ni *(cjI* 4 Of 8 HOT* may t» Cut olf for snortcriing to 14 ' or 10' 

lengths respectively 8 i-O {30 pun) slots Complete address decoding ol I/O slots. 
Choke nt 4. 8 Qr ie Addresses per I/O slot Base addiej* lor I/O slots can be p<sc«d St 
32. 64 or 126 byte increments respectively 1** spacing between ell memory end I/O 
siou Emended addressing capability to* coin memory %n6 I/O ports for meeting SS- 
S0C bus ipecHlcetlons On board baud rste generator wilrv to* end high ranges 
providing jumper selectable rales of 75 tnrough 36.400 for each, ol me rive baud 'em 
tines Slow de viae cir cu ri ry permitti ng 1 M Hi D0p«n die k control Ian 10 fun with 2 M He 50 
pin CPU boards 

ELECTRA CPU l/g Use eriner ine 6602 or 6606 Ho run 6600 eoltwsre* or 6609 Has 
provision for up to 3 2716 Eproms. TK scratchpad. MC6M0 triple timer, and en optional 
baud rate generator providing beud rales from HO through 36,400 baud in two user 
selatteete rein Tne t>om9 SuPIXIit OeJA try erlher HALT or BUSREQ when a 6009 
CPU n uaao The board does not support e OAT and therefore does not support 
vtand»d addressing The board wiM run am of t.ne MfRBUG^eomtjanibie morvtor* m 
the 6602rBB09 mode and &BUO E n\jM6UO, and MiCROBuG m ine 6109 mode Tha 
ELEKTRA CPU 6/9 will run any ol the pop Lar disk controller boards with the 
appropriate soltware OS 9- Level T is available when used wilh the SSS OCB-4A 
controller or Gimix compatible single density controllers 

LEKTRA OPS DUAL PORT SERIAL CARD Fits tne standard 30 pin SS SObus I/OsJdI 
Can be conf «g> r ^l for 4 addnaiisa per pan w»ih fheB port 2 sddnsss^ n >gfte» man the A 
port or tor 19 eddresae i per port with theB port 4 e OO eases twgnavtnan rha A port Each 
port « terminated at two 19pm dtp sockets one socket configured tor m<s9w*t snd the 
omer •of tssmmei o» pnnter RTS. CTS. OTR OCO. eno 0TR era epproprtatefy 
implemented Esch port has mdepnndent selection ol bsud rate Each port allow the 
urlerrupt request lo be independently |um pared lo trie IRO or FIRO/NMI bus line 
ELEKTRA DPP DUAL PORT PARALLEL CARD Fits the Standsrd30f>n SS-SObuS I/O 
aloi Can be used in either I rye 4 or 16 addresses per I/O slot configurstton occupying 
tne first four addresses of the 1/Osloi The direction ol the TTL buffer seen Decontrolled 
by either on board lumper con nee to re or bye signal from tha peripherals The interrupt 
request lines tor each port may be individually lumpered to either the IROor FIRO/NMI 
bus line 

ELEKTRA CHASSIS Includes cabinet. 110V power supply, power supply cables, 
standard disk regulator board wilh power cables assembled motherboard with gold 
square pm connectors $625 00' 

ELEKTRA CABINET 260 00 

ELEKTRA 11 0v POWER SUPPLY 175 00* 

ELEK1PA CABINET. MOV POWER SUPPLY AND POWER SUPPLY CABLES 410 00* 
ELEKTRA CABINET, ItOv PS. PS CABLES. STO DISK REGULATOR 

AND CABLES 4*000' 

'Add 63000 tof 220v 

STANDARD DISK REGULATOR BOARO AND CABLES 50 00 

HEAVY DUTY DISK REGULATOR BOARD AND CABLES 75 00 

FILLER PLATE FOR5-1/4" DRIVE OPENING 10 00 

FAN FILTER 10 00 

ELEKTRA 0*5 Oust drive cabinet tor 5-1 /4 H drives wuh power supply. 

Mne cord fuse, power swtch, and powse ceb*e to dnvee 
ELEKTRA HO-8 tHMvs duty ve*»K)n of D-5 package aborel 
ELEKTRA SHD-5 (Super heavy duly Powers 1 Winchester and 1 floppy) 
? nbOon cable for duel 5 1/4" disk drives 
ELEKTRA D-6 Oust drive cabinet, power supply, pa cable for 9 H drivee 

Cabinet tor duel 6" drives only 

Power supply for dual S" dnvai only 

FS cabiei only iSpecity brand end type of 8" drives) 
6" hbboo cable for dual 8 d»k drives 

GOLD 10 PIN CONNECTORS (Spscify male w/squere pins or femele) 
Tin 10 PiN CONNECTORS (Specif t male w/sq uare ptns or femefe) 
TiTANiUM-TtN 10 PiN FEMALE CONNECTORS {While supply lasts r 

BARE 



ELEKTRA UNIVERSAL MOTHERBOARD (Gold) 
ELEKTRA UNiVERSAL MOTHERBOARDfTin) 
ELEKTRA CPU 6/9 (Add *?OO0 for MlCROBUGl 
ELEKTRA CPU 8/9 baud rale option 
ELEKTRA OPP DUAL PORT PARALLEL BOARO" 
ELEKTRA OPS DUAL PORT SERIAL BOARO" 
"CABLE FOR OPP OR OPS <2 nmtdmd specily bosrd) 



BOARD 
60 00 



20 00 
20 00 



KIT 

an oq 

240 00 
225 00 
25 00 
60 00 
60 00 



125 00 
150 00 
175 00 
40 00 
35000 
250 00 
120 00 
' 3000 
4500 
I 50 
050 
50 
ASSEM- 
BLED 
36000 
300 00 
275 00 
2600 
6000 
8000 
2000 



WARNING AAA CKicego Computer Center does not provide repair or diagnostic 
Mrvics for customer assembled kits AAA Chicago Computer Center doee warranty 
and maintain service for our assembled boards Thecustomer should cars fully takemlo 
eofliidereiJon Ihe amafl differential sepeiating our kd end essembtod prices when 
making hit choice ot purchase 

We have introduced our line of computer equipment with tha purpose of offering the 
highest qualify of e muwa ea n a poaaibte at attordaftte prtcee These products era 
mended «or OEM applications w*e*e rt ie fAe rvspcmsibikry of ihe porcnaaef lo 
Inlsgrata these components with tunable memory disk onlrollere, drives, end 
software sk>ng with J/O terminals lo lorm working computer systems 

AAA Chicago Computer Center 

120 CHESTNUT LANE e WHEELING IL 60000 
<3 12) 4590450 

Technical consultation available 4 PM lo 6 PM most weekdays Closed evenings snd 
weekends 

TERMS Minimum ofoar t ?0 00 Snipping »n<t handling estimates with in the Contmenlai 
U S . add 3% (MINIMUM \2 50| Illinois residents add 6%k sales tax We will refund your 
overestimated shipping and handling charges Foreign shipping and ha ndfrng. add 10% 
I MiNi MUM tiOOQ) Foreign orders mutt be p rape id m u S doners Heavy lo reign items 
wilt be shipped air freight collect Fteasa phone between 4 PM and 6 PM weekdays it 
questions arise regarding shipping teat Master Charge. Visa, and American E* press 



Our apology WmtrwnOl alerted lo a newer lecftntcei ir^uwiee ihnoueh ma maa Reese 
p+&m for technical help during the hours indicated eftoira Tha too eess^nt changing 
ot our inventory snd prices makes it uneconomical to publish acaielog Our adtare 
intended lo toive thai purpose Prices end invenlafy ere sublet I to chan without 
sdvsnce noiwa 





SMOOTH"" Software 



(Altoi our software is copyrighted and all ngnta are reserved Source is either suppfied 
or ophonalry available at e*lre cost so that Ihe purchaser can modify our progmmg for 
his own use Licensing, however, is required for eommerciel reeale ) 
SUPER MOOEM PROORAM 

Hardwere independent (No interrupts required) Assumes modem iseonnected loan 
MC6aS0 ( anal tnlerlsce r end Ihe control porl le connected to eillier Mn MC66S0 or 
MC6820 when used with the Vtteo GMXBUG 
Trenemil manuelty to drtlant computer 
Transmit ditk hies (text) ol sny length to distant computer 

Receive endsavedisk files (tout) ot any length on Jocai disk system It senomgeomputer 
does not supporl an X-on/Xoff protocol than the received tries are hm iled< n size by the 
computer memory 

Tested to transmit and receive t««l at speeds up to 9600 baud (CRT terminal must be 
epable of operating at i baud rate hignei than the one the modem is operated at ) 
Half duplex option m case distant computer doesn t ecno 

Echo option so user an simulate a lime aha ting system (Super Modem program 
doesn't support auto-answer but the source is provided for those mdir duels who wish 
to adept our program lo their epeoei needs > 

Replaces CR with CR/LF (user option r lor I hose using lime shs/ing systems that don't 
transmit LPa 

Slowdiak file transmd beted on character verification (p| t user installed liming loops if 
necessary) tor use on time shering systems lo which drtk tiles csnnot be sent st speeds 
suggested by ihe baud rate 
Pleese specify 6800 or 6809 SSB or FLE3C"*. 5 or 8 

Manual end disk with both source and obleci code . ,* PS 00 

8TANOARD MOOEM PROORAM 

Ssme ea Super Modem Program above but without ECHO opt n CR/LF tor CR oplton 

slow dish lite transmit option, nw X-on/X-oft option Recepton ot disk tiles is limited to 

those small enough to omplelaly hi within the receiving buffer 

Please specify 6600 or 6609. SSB or FLEX 1 *. (T or r 

Manuel with instructions, source listing, end flow chert disk with 

both source snd otfeci code ta5 00 

Msnusl with i net ructions, source hstkio, snd flow cnen 2500 



MOOEftM (By U.S. Robotkre) 

Autr^Diai is Hayes compatible 
30071200 Baud, direct connect 
1200 Saud ( 5 20 cpsl, direct connect 
300 Baud (30 cps). direct connect 
300 Baud (30 cps). acoustic 



MANUAL AUTO AUTO ANS 

ANSWER ANSWER AUTO-DIAL 

N7A 499 00 54900 

399 00 449 00 NL'A 

159 00 I994H H/A 

1 29 00 N/ A N/A 
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SPECIALS 



ALL IN ONE 

EdilOf * Te at Priraiff * Mailing labels 

Mailing It*** • Use any CRT Itrnnnll and printer 

Supports EdrtjnO command! Such a* botlom chanoe delete IhhJ insert t»»noJe line) 

mpoi <muM>ie imea>, lit next overlay (wt1h cursor ediiinO, character rjetaiponand 

msertw n) , omilnkA (lot seeded dark 9f icrAt) , print restart* set, too, under lint op and 

verity 

Supports Tticl Processing, command! tuch at block copy block move centering 

margin juslilieaiion (widen and narrowj paging, and tabbing 

MaMIng LMs and labels. Um the same mailing >*»■ drsk hie (with Prolaclad areas) tor 

both mailing leoers and rapaat tellers Repeal (e»*rs ara personalty a dressed to aach 

person or seiecied persons on in* roejUng, i*»i 

Moat Powerful Fa* HandW* round many editor Append one hie to tr>e end of another or 

insen (metgel one) lit* inio another as designated by I ha line pornle* Print specihed 

*ine* to your printer or to a disk hie Edit file* larger than the 1**1 buffer Ooe* not 

produce output It tea whan not desired Oalata disk Me* from the edOos 

Printer commands Conirol characters can be aenl to the pnnlar tor formal c mroi 

either directly from me control terminel or by imbedding them m |he le*r The eat 

commandcomams interface inrinliialionandcnaracler ouipui routines toeupporline 

SWTPC MP-C interteee a* well as ihe standard aerieJi and paraiiehnterteces JumPser* 

also provided to user supplied printer routines User lafaclithapoit address (Otnru?. A 

or 61 thereby efemtnaf ing the need for the user lomsiaa printer software routm*i Editor 

can be inii»a*ied for either 4 or 16 e"dssa»«a P«r pon 

Editor eiiows exiting to either the monitor or OOS and Ihen reenter (War Start) wOhOol 

destroying ptemouiiy prepared lent m lha puller The Resiarl command erases 

contents in the buffer without the user nev.ng to reload in* Editor 

The Editor allows Iho use* Id loggia beiwoer* fuJi duplex (no ecbor and hall duplet 

4echol as needed II responds lo commands in both uPPer and lower case and can be 

used to create asiembter source code and Basic programs as well as text 



t? at 6 



Specify 6400 v 6609 SS* o* FLEX" 

Pnnted source iialirwj re available for 

ah in One VYMen Spelt and Spetfn P\ package 

Software by Technical 6r»ierr*i Consultants, Inc. 

DOS {includes Editor end Assembler | 

Ed-tor 

Assembler 

66000 Cross Assembler on 6606 

6600 Cross Aisembiar on 6600 

Teal Pfoceeaor 

Extended Searc 

Basic Precompiler (specify alandaxd or extended* 

PascallFrex"! 

Sot/Marge Package 

6606 Fmr % Ul'lihes 

6600 Fiea** Utilities 

Deling Package 

Oiagnoehc Packago 

MOT Relocating Assembler 6 Linking Loader 

Fortran IRnquiree Relocating Assembler & Linking Loader) 

Fortran iVnth Relocating Assembler & Unking Loader) 

Cobot 

Software if Mlcroware rWe-Tim* 

iMtom tt** 

OS- »"" Level One 



UaJFLBX"* 

w/1 yr mnt 

590 00 

90000 

ISO 00 
20000 
ISO 00 
90000 
ISO 00 
ISO 00 

75 00 
75 00 
175 00 
35000 
450 00 
750 00 



Update Soarxa Man* 



75 00 

3S00 

165 00 

FLCJC- 

ISO 00 

5000 

SO 00 

250 00 

10000 

75 00 

10000 

50 00 

20000 

75 00 

75 00 

100 00 

75 00 

75 00 

150 00 

275 00 

375 00 

500 00 

Bated 



10000 



75 00 
75 00 
75 00 



SO 00 
100 00 



40000 

N/A 

N'A 

30000 

300 00 

1X00 

MM 

N'A 



200 00 
50000 
20000 
12500 
125 00 

SO 00 
90000 
40000 

75 00 
KIT ASSEMBLED 

3S00 



4000 
4000 
24 00 
1500 
10 00 
to 00 
60 00 
40 00 



Operating System 
OS-**' Level T o Operating System 
BAS1CO0- " 

OS -9- Macro Tern Eoitor 
OS-P" Interact rva Assembler 
OS- 1 * Interactive Oe ugger (0<«* version) 
CIS Coboi Compiler 400 00 

Pascal Compiier 1 00 00 

Microwere yearty support service (1200 00 lor OS 9 Level 2!) 
SWTPC 

6609 SWTPC FLEX* Diak and manual (f>sk only IS 001 
DC- 4 D. ik Controller (SSVOS SO/OO 5-1 fVj N'A 

S1HKJ.E |2716 compatible! 

MP-S2 Dual pon seriel or MP-L2 dual port parallel N/A 

MP-P Single voltage 2716 prom programmer N/A 

MP.N Calculator board 54 95 

MP T Interrupt timer N/A 

S32 Universal Static Memory Board N'A 

MP-09 6609 CPU board (2MH* , N/A 

6pwcM Soft are 

MlCROBUG I2K, 6609 Baby HUMBUG by Pete* Stark 
*K 6609 HUMBUG 

4K 6600 HUMBUG (RAM needed ai 1AOO0 and lOOOOt 
2K 6600 HUMBUG (With cassette LOAD and PUNCH) 
?K 6600 HUMBUG <E*ira commands instead of cassette soriware) 
Oihai HUMBUG vereio a including video versions ere available 
SpaH in Fix by Peter Stark 
Write n Spell by Peter StSFk 
AinnOne. Spell n Fix and Write'n Spell package 
Dynamite Oisaasembst* 

Dynamite * (Update Send orrgwal d«s*efTe ptua M0 OOF 
SUPER SLEUTH Drtsssemtfe* System itt0 1 00 tor OS-9 version) 

SMOOTH end ELEKTRA ere iredemsvks of AAA Chicago Computer enter 
Fill and Unsf LEI ww irey*s*ne>te o» Technical 5yst*mi Consultants Inc 
OB-9 and BA|iC09 9*9 trademark* or Mtcrowere System ■ Com 
OlMf V and OHOtT ara registered trademarks ot GIMix Inc 
CP/M is a registered trademark 01 Digrtai Research inc 
Z60A is a registered rrademark ot M*oQ. inc 

O—lt tor CIMIX. SSS, SWTPC M«croware Syitomt Cora 
ev*d racnnicar SnfmM ConaurTanra. fnc 

Prices and invsjnio/y f svbted to change: enfnoul advance no%ee 
True ad it our catalog 

St* our Bd on In* previous page to your Itft 
for ordering Instructions. 



23000 
25 00 
120 00 
1 14 SO 
97 00 
92 00 
124 50 
295 00 



3000 
75 00 
65 00 
40 00 
40 00 

8929 

/S M 
195 00 

60 00 
10000 

99 00 



- N*« T*J«vdeo ZBOA aMHf 6aK computer system with 950 compatible 
buill in reiminsi Oua' 5-14 floppy drives (1 Mbyte capacity 

lotau CPM 329600 

* Same but vn\ h on* I loppy and on* 10Mbyte W>nch*ste* S495 00 

* S<P use 1 vr*rs*om available Call 
' While Supply Hits hianmm-iin 10 pin lemel* connectors 50 
" SWTPC MP-098 socketed, win baud rale generator (only 1 left) 26000 

■ SWTPC MP A? lockftied an wiihcryatat cJock 1 MHj (only 4 wit) 115 00 
' SSS BFD Coniroiiers (only 5 i*h| 29900 

* GlMlX i?K Memory Board* wilh 3?K RAM (only A ieh) 19900 

* QiMiK «T6 Video Board (omy t el Ihrs antm\ 39900 

- n«m#P 8 OS' OO Disk Drives Eoniy 4 lehj 399 00 

- MlCFtOeuG |2K 6609 &ebv HUM&UG by Petn Stan J 30 00 

■ Cat 300 Baud Aceousiic Modem ionly 1 left | 9900 

■ GlMlX 6800 CPU wfceud rate and tnw used (only t leff] 19900 

Mf> Htltl 30 day guarantee 1 head Hippy 

SO DD Capability MPl Siemens 

5v|^ N . 40 tracks 250 00 26000 

5-t/r SOtrecke 32500 335 00 

Sanrice Manual (Sp*cily 40 or 60 frack r 
r 77 tracks SO/OO Ourrw iRemej S399 00) 
Service Manuel fOume OT-6J 
6PFCIAL SOAR OS 

UHCinlirrw II Cjipndsr and Clrwifc Board 
Da la Marl i«M £PROM bar^boefd 1??D6 Ch.psl 
Oaia Sysierm 66" Extender Hoard iSpec^iy 30 pm or 50 ptn) 
TERMINALS 
Hudline 1420 

Ha/eiilne Espini \ (Espirit it S54g00J 
Adds Viewpoint Green Screen 
Televideo 925 Green Screen 
Telev»deo 950 Green Screen (Std Keys $695 001 
Tetevioeo 950 Black Screen 



Okidais ML 62 A (120 eps 9i9 bidirectional s*r.ai and parallel) 

Tractor for ML 62A 

Ok. dale ML 63A 1120 cps wilh tractor) 

7K byls buffer (High spaed RS>232 r 

Oof addressable graphic* 

Okidata ML 64. 200 cps 2K Orephiee Parallel (Senel il29S 001 

Tl 610 */iower case and hjti venrcal lorms control tiimri*d quentiiy) 

Florida Oeta (600 cars) 

NEC 3510 Std 

NEC 7710 Sid 

Spare ribbon cs/P*dga tor Epson MX-60(FT) (White supply tasl ) 

Optimal Technology tog. EP«2A»79 Eprom Programmer 

iPufinna r> Modules i-ifn tor above t>rnQrrtPir i 

Optimal Technology. Inc 30 pin parallel I/O board tor EP-2A-79 

Sofivrare package lor EP-2A-79 (Specify 6600 or 6609] 

Wmdrush Eprom P ogrammer tor SS-30 (Add $2000 for Exorcisor) 

6moea asgpai ■rpadeavting 

DCB-4A OovPM Density Controller Board lor 5" arid a" with DOS 

SSB DOS (Specify Mp6 or 6609, BFD or DCB-aA. y w 6*) 

SC92/SA«?'S (6609 Edil/Assm tor OOS| 

SSB Monitor iSpeciVy 6600/6609, *600e/lE006>JF7E6) 

SSB veralon of FLEX*" (snthput Ea.ror and Aassmibtev r 

LHB-iA Mother board 

SCB-69 6609 CPU Board 

PAR 1 Dual Port Parallel Board 

SER-2 Dual Port Serial Board wilh 2 Cables 

Oiet 90 64K Computer System 

Chrel 9524 64 K Computer System with 0S-DT-OO 5 J FD 

Static Memory Boards M->6-X 19500 M-2a X 29600 M-32-X 

Oynamre Memoty Boaids M^t26-X 996 00 M-2S6X 1296 00 M-5 12^X 

OlMtX 

6600 CPU BoardCT.mers *64 03 Baud r*le $30 00 2 MMj $15 00} 

2 MH; 6909 Pius CPU. lime ot My dock battery backup ik NMOS RAM 

GlMlX Oynsmic Address Translator (SWTPC Compatible DAT f t5 00 1 

Filler plate tor 5-1/4" drive opening 

Baud rate generator board 

Mrismg cycle detect card 

50 Pin Prototyping board |30 Pin Prototyping board 136 33} 

5' Single Density Con [roller 1 Without 1771 chip It 56 36) 

5 and 6 Single Density Controller 

5 Double Density Control'** 

DMA 5 J ANO 6 J 0oub*e Density Comroee* 

GlMlX version of FLEX" (without Editor and AseembJer) 

Dove** disk regulator card 

Ribbon Carte Two 5 ?M W mboard drives S34 96 Two 6" outboard dnves 
tT duk ribpon cable and back panel connector set 

V duk drive catunet with power supply 
19MB Winchesier end controller update (38MB S66M91) 
Memory CMOS WI1X 

BAT BACKUP 



MPl OUME 

32500 350 00 

475 00 450 00 

2000 3500 

475 00 

4000 

6000 
3000 
2500 

39900 
49900 

525 00 
749 00 
949 00 
^96 00 

475 00 

60 00 

775 00 

125 00 

50 00 

1195 00 

140000 

34*5 00 

1495 00 

2445 00 

799 

169 00 

3700 
30 00 
37500 



54900 

75 00 

96 96 

75 00 

19000 

399 00 

399 00 

69 00 

129 00 

2196 00 

4325 00 

39600 

169600 



274 03 
576 05 

35 00 
1492 

HH4.1 

36 23 
56 66 



N/A 
516 36 

NVA 
776 56 
799 64 



1 pon 
66 41 



64* Static RAM Board with 24 K of RAM installed 

64 K Static RAM Board with 32K of RAM installed 

64K Static RAM Board w.m 46K of ram installed 

64K Static RAM Board with 56K oi RAM installed 

64K Sialic RAM Board with 64 K of RAM installed 

16 Socket E PROM/ROM /R AM Board 

SKPromboerd (2706) 
I/O Boards 

Serial interface 

Parallel interface 

Cable sets for above boards ( specify board! 
2MMi 6609 PLUS Computer System * Disk Com 

Wtth 56* of rnavnory 2499129 

Wtth i76K oh memory 

Wprn i?6K and 19MB Winchestec 

With 176K. 36MB Wmch dual » 

* Includes G M X BUG ■'F t E nu O S -9 sottwa re sekectatMe 

■w-tri CMOS RAM and Battery Backup 

Mainirame tChaaais, PS, Switches, Fen. Mothertoerd< Baud Rale Gen.) 1 199 19 



w/iSlCont 
2966 59* 



276 56 
296 26 

569 66 

90 00 

66 22 

44 26 

29 25 

64616 

4266 90 

NMOS NO 

BAT BACKUP 

346 27 

396 37 

516 47 

57657 

636 67 

236 32 

96 34 

6 po*1 

316 46 

196 46 

«h 24 96 

«/466 Conf 

3249 49' 

3799 39 

9996 09 

17499 99 

add 160 00 



7 port 
126 43 
6642 



AAA Chicago Computer Center 
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ORPNITE COMfUXER SVSXEMS 

PL£< 9 CISC RW1LAB1L1LTY 
Branita Coaiputar »of(M«F^ now a*ailibl> on 3.M FLEX disc* 

Sourca listings idant leal *ith T9C 6809 EDITEfl - lk<r ay«bol 
tablaa - Local and global labala and •KPr'tttioni - Optional 
ganaration of occuranca f)u«D«r*d local ttfrograaO labala - 
Easy idant i Meat ton of data araas - PCB - PD& - *CC - Stat 
diaaaaambly ona aregT-aa or data atatawnt at a ti*t - So urea 
taos or di»c ror- TSC CD) TEA tnout - Ron TSC UbUJRaVER Kith 
itmiwil Modification - Probls** coda* flaggad on output 

Convaniant «»tny drlwn option* carry out tadtoua trror profw 
disaa«*Pbly operations - rapidly and accurately 

JUST U«T WJU NEED TO CONVERT TntDE U00 4 63«3 PKOGRAkS ' 



&SM to 6603 DISASSEMBLER las* July '68' ad> 
6S02 to 6A09 DISASSEMBLER <aaa Rtiguat *6fl* ad> 

COHPANJQN PBOOHttM 

68»9 to 60*9 DISASSEMBLER <•♦• Juf* '68' ad> 

LIME TED OFFER 

Any t«o DISASSEMBLERS ordarad togathar 
All thraa DISASSEMBLERS orfltrttf togathar 









Qthara in tha mmr\mm of lupir program* for tha 64M? . , 

- use «itn SWTAC MP^R Progra"*ar *JS, 9* 

lExTWfllTER - uaa with TSC ED! TEH - syiwgtst ic 

ad » ting and orocaaamg pacMaga *39. 9$ 

FILEMfVMCCR - um with JPC TC-3 high ap<Hrd UQ board - 
CQapr^Bniw* caaaatta oriantad OPBratinO ayata* - 

Ca»aatt»/D*SC gSS.TO £"716-1 EP«OM «39. 95 

All afficiant - nail docuawntad and VERY FRIENDLY 

Hurt on any 5SS0 6803 ay at am with Miniwal crianQa - CoaiOraflanal vm 
Manvala - Odjact Prograaa on HC caaaatta or 3.23 FLEX discs 

GRANITE COMPUTER SYSTEMS 

H/C Routa 2 Bom **3 VISA 

Htllsboror MM 132** 




QMM1-B 256K MEMORY 
FOR SS50-C 6809 SYSTEMS 

Compatible with systems by SSB, GIMEX, and SWTPC 

including those with DMA disk controllers. 

Full 2Mhz operation with transparent on board refresh, runs 

continuously at 2 Mh2 without cycle stretching or stealing. 

Very versatile addressing and disable features. 

Parity option halts processor and sounds audible alarm upon 

detecting a read error. 

All boards assembled, tested, burned in and warranted for 1 

year. 

Also available with 64K, 128K. or 192K. 

256K for $935.00 — 2§6K w/ parity $ 1 035.00 

Delivery: Stock— 2 weeks. Terms: Prepaid or COD. 

D.P. Johnson (503) 244-8152 

76SS S.W, Cedarcrest St., Portland, OR 97223 



GREAT PLAINS COMPUTER CO. 




STYLOGRAPH 2.0 

The best word processor on the market today. 
STYLOGRAPH Is an easy to learn efficient way of creating, 
reviewing, deleting and printing text. STYLOGRAPH Is now 
available for the TRS 80 Color Computer!! 

STYLO 2.0 OS9, FLEX $295 UNIFLEX $395 Color FLEX $195 

MAIL MERGE 

MAIL MERGE OS9, FLEX, Color FLEX $125 UNIFLEX$175 

SPELLING CHECKER 

SPELL CHECK OS9, FLEX, Color FLEX $145 UNIFLEX$195 



INFOMAG DBMS 

A data base management system specifically designed 
for microprocessor based computer systems, 

FLEX version $295 UNIFLEX version $395 

OSBORNE BUSINESS 
PROGRAMS 



ACCOUNTS RECEIVABLE 



ACCOUNTS PAYA6LE 



FLEX GENERAL LEDGER UNIFLEX 

$295 each $395 each 

♦ a * 

6809 Software Tools Available!! 



10% discount on 
cash with order. 



GREAT PLAINS COMPUTER CO. 

P O BOX 916 / I0AHO FALLS. 10 63402 / PM: (206) 529 3210 
Visa and MasterCard accepted 




VISA' 



JU 
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USER FRIENDLY UNIFLEX* COBOL SOFTWARE 

These programs will allow you the same versatility on your SWTPC computer as is available on a large mainframe 
system. 

They have been used and tested by virtually hundreds of businesses and are versatile enough to run any business. 
Dealers will find it extremely simple to introduce to your prospects and your sales should increase with the 
ease of operation and versatility of the package. Completely interactive. 

A TOTAL BUSINESS SYSTEM. 
AN EXTREMELY USER FRIENDLY, MENU DRIVEN SOFTWARE BUSINESS PACKAGE 



GENERAL LEDGER 
PACKAGE 

$995 


ACCOUNTS 
RECEIVABLE 

$595 


ACCOUNTS PAYABLES PACKAGE 

VENDOR PROGRAMS 

PURCHASEORDERS 

CHECKWR.TING,ETC. 

$695 


PAYROLL 

$695 



Detailed Descriptive Brochure 10.00 Manuals and Demo Programs 100.00 

Deafer Inquiries Invited 
AT LAST! I! A COMPLETE AND RELIABLE 

BACKUP & RESTORE PROGRAM FOR UNIFLEX 

This program will download your entire hard disk or selected directories to floppys. creating all directories with- 
out bombing out when disks Mil up. Restore reverses the process. Backup has many unique options which altow 
you to tailor theprocedure to meet your needs. Compatible with any UNIFLEX system. 



Manuals $5.00 



SPECTRA 



SYSTEMS 



Programs $75.00 
(Manuals included) 



BOX 333, EAGLE, IDAHO 83616, PHONE (208)939-8813 

•Uniflex is a irademark of Technical Sysiems Consultants. 



WINDRUSH MICRO SYSTEMS 






ALL-IN-TWO EPROM PNOGRAJMCR 

fffri |H 


fclrVCC * <o'ra»1d*r»i it! TOt/AtSCtetfd vrlftfe by frrahaa. rrott »Mcti 
takra noet ol thi pain out oi a*»*«c>ty lanpvaga. program 
iMvflopwftt. Alloy* prO»ra»t io bf «ri<»«r», «d1l«d< ataeafelad, 
and ^.«unt4 YlTMOUT rwer aniari«s **« dli\ ocaraHng ayaifft. 
Include* I*A« a to.r.uci «00/1/1 Efll?fla./C WIS- ASSEJULER. ! 

PL/9 A co-raild+M f DlTCi/COHPlLEH/OE-BbO&E* wrtllfn by CrahM 
Trott. A *<r>Ql» pa*« (WPHtr Ihat Product* 0«««t1on 
1*d+0»rio«AC «acM*a coda output . Suoportt «any BASIC, S*»l/»», 
«rv0 PAlCAt ttrwctura*. Support*. » bit a«d 1* bit alo^ad **»» 32 
pit floating obIM varlabltt. PIE* I/O, float**? oolnt, in* 
*c<+ftlific function* library (w/tojrea) Included. 

PETAtLtO OVCRVtEWS Of TME A80VE PCOWCTS AtE Oft PACES 
Mt\t> Of TMl OCTOSft 199? ISSUE OF '6b NKtO J<X#K*l . 

C TK * 'LCI vartlo* or th« Jtmt F*cCo*» *C« coap)(«r that »«i 
OMgtna.Ur o*valoovd lor tMIKH. Siaworta all *C* data ty««« 
»j(«1>1 •floaii". 'doueiaa', ond 'bti'f («ld» '. f>ro^c«a v*r> 
afflriant aa*aably lar^oga «A*r«a ovtpvl. fM T$C ralocaf lAg 
aita^iar/lintiiitg loadar (SV0«.>7> If itn— ' ihl IT you «i«n 
to *aka «a»lavo o«a oi C* a ability to produce library wxfcuat. 


- Frobabtr tht «etc wrtalUa E#»C* e«0£»J»»«l «vlU«bl». Int*rf*»l 
t toumitt for ElOacHor.M ttuHr addraatoblt) **f SS-30 but *)*tr*«. 

• —lX*wtl *X VUJflfS ttO0S7?Q«, ?*l6/?m (SlllAi AM THj.VQlt 
ItpES) K\2. 2712, 2712k, «•*, 77i* Mb Tut 12* TWJ2528 <1« » e> 
-> .> ♦> UllHOul 4M1TIOMU. •atdSOJUCirt* N0CCLE& «- <* <* 

• fttttMAaH* #.c#™}» Out tv rtmtt Hprk «rt* v*t %* o* fwltfrO p*<r COtolv. 

• mursitft c ©*»»**• i *w.....„mvi cara, »t*&, poocam, vuttrr tpttom. 
iit#tMttH»MU flurriK. roaMfUp chjv o# teifti. ftLL tuirt*. 

• r«il(y ibcK^<uduir''i lirwit tf#tch«**t lea i tb«ocy of aptraflon. 
Profr»»<o*Nall* fir>Ui»ao PC«*» tf/«old»r mdi 4 t««*r(n owriay 

] • kllMrr <jr*^r* avaHabla tor \tltt 2*9). tVSBl, IOS-«>, «*0 (WM). 
*U MWUCf iltIS Sv*nif*. *P*c«fF 0»/StS *>d di»* «Vf« on ortter* 

• •lo*ry Ml* ftCO/Wf HE uliltlira tupOlirO *tl* OS-? vefftier. Binary 
M|r «<1»rt loador •.wfwllad »ilf, NbOS varatot. 

• rueir AlSCXfb, tUtMO. IN, AJtO 1ESTCR MO UtTMlt TO «UT» 




m<F 4<fi((^*i IHACO («aUN fi.fl ^a t *>.. .. 1 ffl.QO 


PL;0 linrlwdat MTttS »*ffc#o*l + {AfO« RUR 0lLf> „ , . . . + , . « + 1198,00 

■f* ia io« *«» 'LtA t^ttott It r«m1rp<|_ im.(io 

t-JO AL1- IN-rv0# M/ona vartion Oi kctTvar* dr 1««ri.., ,..,»J75.00 
E»0t<4itr AU«l»>*n«Q« Won* *r«r*»an oi V»ft**rf or iw rt. .. . .* .SWi.CJO | 
tCMWUtl OfttVfllt for a 2ftf, 3rd or 4th OP/ST* „. H l tt.00 

^■l<li tKCtlM a | ir h a i t ^ o l l a v r 






At S-30 Iff I. Hi I 

TAiKCK/LiiiiMii^CoajiaoiUiil 
MILL M AvAtcAaXI SOOft! I 


WORSTEAD LABORATORIES 
NORTH WALSHAM, NORFOLK 
ENGLAND NR28 9SA 
TEL: (0692) 405189 
TLX: 97360 SHARET G 






WE ARE A STOCKING DISTRIBUTOR OF SSB,GJMIX. TSC & NHCRCWARE. I ] 
GIMtX IS THE US/CAR DISTRIBUTOR FOR WfCRUSN, J 
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F&D Associates 

1210 Todd Road BUS 1 

New Plymouth . Ohio 

*" *u $n 5721 

^505*f SaruJ for fraa Catalog 

Via* ~ MaatarCharga — COD. 

MACHINE LANGUAGE flONlTOR FOR COLOR COMPUTER 

FADfiUB-C - An EPROh machine languaga moo I tor 
aapaclally for 32/a>4k inichinti. Contiini a 
mm dimk 9007 command that Mill make Ex tan dad Baaic 

J^ unntctmry whan running FLEX*. 

Alao contain! *iany othar uaaful commanda auch 
am: Mamory axamlna and changat Ragiatar dumpi 
turn on/turn off high 32M Copy ROM to high 
RAMI Tranafar tnmmory blockal Jump to a mamory 
locatloni dump mamory to caaaattat ate. Haa 
lta own fcayboard and acraan routlnaa ao that 
Baatc ROMa can ba turnad off. it ralocatabla, 
and can ralocata itaalf. 

Saa laat month'a ad for mora detaila. 



• FADBUG-C 
J FADCDSK-F 
FADCDSK-S 
FADPAK- 1 



2716 EPROM and manual a23<O0 

FLEX* diak and manual a2S.OO 

ibovf plua aourca coda a40.00 

EPROM on PAK-i, manual aS9.00 



A COMING n#*t month, a dtak controller board. RS 
£ compatible. FADBUG-C coaipatibla. 

Add *3 a/h. Oh raa add tax 
•trademark of Technical Syatema Canaultanta 

t).t«!«t«t«!«t«!«!«t«!«t«t«!«t«!«t«t«!«t«!«!«t«!«tt 



SOFTWARE., 
HARDCORE 



•• TOOLS FOR PROBLEM SOLVERS •■ 

oo FIRST — You hava a probtaa — OH WOE I 

oo SED0» — Of court* I Um a caaputarl 

oo THIftO — Ctxxmm ft\% baat harttoar* — a 66091 

oo TORTH « Chooaa tho aoat uMtuI sof Twaoa. 



> FORT* - A TOOL FOR CfcAFT^ajNl 

— > Join tha theuaanda of probl« tolvwn «ho 

hava dlacovarad tho FORTH aathod o* producing 

raa«i lta, Inataad of lapadloanta. 

tFORTM la a raf Inad vara Ion of FORTH \nfmrm*f Group 
atantfar* FORTH lor 6809 (and 6600) ; SOf f aatar tltaa 
FIG-FORTH, aavarat tlaaa f aatar than SASiC. 

FORTH la unlqua aain y coapvtar languaoaa In aany 
rddpacta, not tho laaat of which la that If **t eraatad 
by probloa aolvara to halp th«a on with thai r tia*a, 
rmfb^r than by co^tttar ac I ant lata. 

FORTH appllcatlona hava apannad a vTda ranga at taafcfe 

m Matanlng to oalavlaa, talking with dolphin*, 

running robot a, controlling production Mna Bchlnary. 
and aophlatlcatad graphic* tyataaa. 

Uaam of FORTH report productivity gain* of 2 to 10 
ftnaF0RTH<ta> la tor tha 



wf efl*r davalcpoant tool a 
progra^»r aho naada to *Qw—l* tho 



at "Into ro 



«*F0RTH and firmFORTH are trademaiks of Talbot Microsystems 
"FLEX la a trademark of Technical Systems Consultants. Inc. 

TALBOT MICROSYSTEMS 



SDS IS YOUR 



CANADIAN DISTRIBUTOR 
FOR 68000-6809 MICRO 
COMPUTER SYSTEMS 



SOUTHWEST 
TECHNICAL 
PRODS CORP. 





Industrial controls 

Complete business software 

Peripherals 

SS-50 . SS S0C Memory Boards 

Extensive software: Editor-Assembler, Basic, 

Fortran, Pascal. Business and Professional 

packages 

Discounts for dealers 

Write for FREE newsletter 



w D w 

^^ a aw a ^* 



SDS TECHNICAL DEVICES 
P.O. BOX 1998 
WINNIPEG, MANITOBA 
R3C 3R3 
TELEPHONE (204) 589-7507 



tFORTH® 

THE PROFESSIONAL S CHOICE 
from the author of 6809 fig-FORTH 
TALBOT MICROSYSTEMS 

> tFORTH SYSTWS < 

For all FLEX tyataaat GIMIX. SVTF. SSB, or EXORcltor; 
or canvart to othar ayatoai. Spaclfy 5 or 8 Inch 
dlafcatta. hardaara typa f and 6600 or 6909. For 
atandalona vara I on*, vrlta. 

Manual! aval labia taoarataly - prlca In (). 

Add SVayat« for ahlpplng, SI? tor foralgn air. 

■• tFORTM- •^•n696 fig FORTH (I dlak) 1100 (S?3) 
with fig \}*m adltor. 



•• tFORTH* - axtond«d ->r«1 (3 V w 2 «- dlaka) $290 

(J731 

Includaa ?nd acraan adltor. aaiooblor, axtano»d data 

ty a utility vocabularlaa. 00 1 143 FORTH CAI couraa on 

FORTH, 0*wa, •** dabugglng aldt. 

•• TRS-dO OOtOWtNTH - aval labia froa Tfca Micro aorts 

> »iVLICATI0R5 PICW-JC < 

•• HraFOftTH - 6d09 only. S350 (SlO) 

For taroat co^llatlona to r<^vata coda. 
Aiftoaotlc*! ly dalataa unuaad coda and imnmdod 
dictionary Inforaotlon. Ineludaa full sou rev coda tor 
f»r^mt co^lltr and aasantlal FORTH nuclaua. Raqulraa 
but deaa not inciuda tFORTH*. 

•• TiaaY PASCAL coapllar In FORTH. 6900/09 t75 (170) 
•• FORTH PWW»AMNIK; AIDS - alaborata dacxa*plllng and 
prcgraa anal ya It tool* $150 (SlO). 

•• Alao aval labia: eoda for floating point, tlaara, %n6 
raal tlaa programing. 



1927 Curtis Ave.. Redondo Beach, CA 90278 (213) 376 9941 
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*** NEW 6805 ALL CMOS CARD *** 
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SS - SO BUSS CONNECTOR 
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CPU-5-9 ftl*nk card with document At i on $49-00 

CPU-S-P Partial e»r4 <p*rta Bark** •• not loci.) £229.00} Includes EPROii Monitor 

CPU-S-f Pull card with all parts ahown (fully m«*bUd I $549.00^" and US vac Povar Pile. 

CROSS-ASSEMBLERS for PLE* t Cc I T5CJ 6809 systaa SiSO.OO 



VDISK Tr«At attandad 

ivpi r Cast disk 
4809 tourci 4 obUct 
4009 obiict 

OUTSIDE MODEM PROGRAM 
UniTLtX varalon 
TLEX vtnton 4800 4 48 
HAYES SMART MODEM 

CROSS ASSEMBLERS lor 4 
run* on 4809 TLEX 

TV-EOIT Scrim orianta 
for FL€Jt 4809 
Plt4fi iptcl ty S M or 8 
placing order 
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KARDWAR E 



NEW MEMORY PRICES TO INTROOUCC VDISK 



S-R/R without aiaaiory chip* 
with 8K NMOSt2MKZ 
wl th 1 4K NMOSt2MHZ 
wjtn 32K NMOSt2MHZ 
with 4SK NMOSt2MHZ 
Sitt Ca rd 

Eitandar Card* aaaaiat with 1 
SS-30/50C 
SS-3G 

SP-1 Prototypa Board A/T 
SP-1 Bara Card 
SS-30 VTlra Wrap Board B/C 
SS-30 Wlra Wrap Board B/C 
4802 Supar CPU A/T 
4802 Supar CPU B/C 
Vidao RAM. B/C •49.00. A/T 
FaiAllal I/O. B/C M9 00 A/T 
SS-30 Bickplinti 4.4.8.12,414 
9 73 00 par alot w/o conna 
SS-30 8 poa. BP w/o connict. 
Transition Card 749 00. A/T 
Kolai Cold Mala 11,40. Taaala 
Kolas Tin Ha 1 a t 40. Fasjala 



I 120.00 
•149.00 
•199.00 
•299 . 00 
•399 .00 
• 49 00 
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. 00 
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THOMAS INSTRUMENTATION 

168 EIGHTH STREET _ AVALON. N.J. 0*202 (609) 9*7-1*80 
NJ RES. INCLUDE 9% SALES TAX 

AHa* ) W«%i far Chicfct (• O*** 

CONT. USA INCLUDE 13.00 SHIPPING. CANADA Se.00. FOREIGN $12.00 
MASTERCARD. VISA, and C.O.D. ACClPTED 
Sand 120 00 to racalva lull docuaiant a t I on* schamatlca* 4 aourci 
liatinga for all boirdi currindf in production 
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COMPUTCR 8V8TIMS 80-QOC 



DUAL PI A S' 

SS-30 
B.C. W/Molex 
Con. $24.95 








168K 

PROM 

21-2764S 
3 X 56K 

ssjfoc 

B.C. W/Molex Con. $39.95 



Write for FREE Catalog 

A00 SJ.00 SSM PE* ORO€R 
WIS. AOD SV SALES TAX _ 



11931 W. Bluemound Road 
MILWAUKEE, WIS. S3226 
(414)257-0300 











SPECTRUM 
PRBJEBfS 










Basic Aid Colorcom/E 

"An excellent program "Out of thousands of programs, 
and fine utility." this program.. . SUPER!" 
Rainbow Review - Aug. 82 SOUS Review- No v. 82 

Single control hey wut of A smart communications pacltait. 
BASIC commands 13195 Di&k or Rompaeli S4995 

Spectrum Stick CoCo/EAD 

I "More like arcade joysticks Color Computer Editor, 
than anything we've yet Assembler and Debugger $6 95 

&SSL-M.H Spectrum Paddle 

Response ad control put the joy For quicker side-to-side action 
back in color computing $39.9$ and higher scores. $1995 

CUl NOW SEND TO 
212U1-2807 DEPT. C2 93-15 «6TH DRIVE 
FOR FIST DELIVERY WOODHAYEN. H.Y 11421 
All orders plus (2 skipping NIT residents add sales Ui 
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THE CHIEFTAIN "5 V4-INCH WINCHESTER 
HARD DISK COMPUTER 




SO ADVANCED IN SO MANY WAYS . . . 
AND SO COST-EFFECTIVE . . . 
IT OBSOLETES MOST OTHER SYSTEMS 
AVAILABLE TODAY AT ANY PRICE. 



• HARD DISK SYSTEM CAPACITY 

The Chieftain series Includes 5'/W and 8-inch 
Winchester that range from 4- to 60- 
megabyte capacity, and higher as technotogy 
advances. All hard dish Chieftains Include 
64-k memory with two serial ports and 
DOS69D dish operating system. 

• LIGHTNING ACCESS TIME 

Average acces* time for 5'4*irtch Winchesters 
Is 70 msec comparable to far more costly 
hard disk systems. That means data transfer 
tejiJimts faster than floppy disk systems, 




Write or call today 
for details (including the 
remarkably low prices) 
on the total Chieftain 
Series . . . and on 
dealership opportunities. 




• 2 MHZ OPERATION 

All Gilefiains operate at 2-MIU, regardless 
of disk storage type or operating system 
used. Compare this to other hard disk 
systems, no matter hotv much they cost! 

• DMA DATA TRANSrER 

DMA data transfer to-and from tape and disk 
is provided for optimum speed. A special 
design technique eliminates the necessity 
of halting the processor to wait for data 
which normally transfers at a slower speed, 
determined by the rotational velocity of 
the disk. 

• RUNS UNDER DOS OR 05*9 

Mo matter which Chieftain you select , . . 
5'/4 or 8- Inch floppy, 01 5W« or 8>lnch 



Winchester with tape or floppy backup > . . 
they all run under DOS or 03-9 with 
no need to modify hardware or software, 

• UNBOUNDED TLEXIBIUIY 

You'll probably never use it, but any Chieftain 
hard disk system can drive up to 20 other 
Winchesters, and four tape drives, wilh a 
single DMA Interface hoardl 

• SMOKE SIGNALS HERITAGE OF 
EXCELLENCE 

This new-geneiatlon computer Is accompa 
nied by the same Endurance Certified 
quality Dealers and end -users all over the 
world have come to expect from Smoke 
Signal And support, software selection and 
extremely competitive pricing arc very much 
a part of that enviable reputation. 



20-Megabyte Tape Streamer Back-up Option 



rilable with all Chieftain hard disk configurations. This cartridge tape capability 
provides full 20 megabyte disk back-up in less than five minutes with just one 
command, or copy command for individual file transfers, Transfers data tapc-to- 
cSisk or disk-to-tape. Floppy back-up is also available in a variety of configurations 



The Chieftain Computer Systems: 



Here are the Chieftain 6809 basad hard disk computers that are destined to 
change the data processing industry . . . 

□ CHIEFTAIN 95W4 | — I 

4 megabyte, Scinch Winchester wilh I — ' 

a 360* floppy disk drive (pictured). 

□ CM CHAIN 95XW4 ( — I 

4 megabyte. SVfc-tach Winchester iWtti ' — ' 

a 750 K oclo-denslly floppy disk drive. 



CHIEFTAIN 98W15 

15-meganyte. 5'^ inch Winchester with 
a I megabyte 8 inch floppy disk drive 



CHIEFTAIN 9W15T20 

ISmcgabyte, S'-vinch Winchester with 
a 70 megabyte tape streamer. 



Name 



SMOKE SIGNAL BROADCASTING® 

31336 VIA COLINAS 
WESTLAKE VILLAGE, CA 91362 
TEL (213) 889-9340 



I 
I 

Company 

I 
I 



Address . 



CUT- 



State 



.Zip 



[ Telephone ( 
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Intelligent Serial I/O Processor Board Now Available 

The GIMIX Intelligent Three-port RS-232C Serial I/O Interface can significantly increase 
throughput of a multi-user system by reducing the number of interrupts between user 
terminals and the host CPU. The Intelligent I/O Board accomplishes this by buffering data 
transfers between system and users and preprocessing of the data. 

Appropriate onboard software and operating system drivers are required. Software and 
drivers for OS-9 Level 2 will be available shortly from GIMIX. 
s INDEPENDENT ON-BOARD 2MHZ 68B09 CPU 
s UP TO 20K OF ON-BOARD MEMORY (EPROM and RAM) 
^ BUFFERED DATA TRANSFER BETWEEN HOST AND ONBOARD 

CPU USING A Z8038 FIO I/O INTERFACE UNIT 
s THREE RS-232C SERIAL I/O PORTS (6551 As) WITH SOFTWARE 
SELECTABLE BAUD RATES, WORD LENGTH, STOP BITS, PARITY 

Standard Version Including 4K RAM (Without Software) $438.11 

— PARALLEL VERSION COMING SOON — 

Uniflex For GIMIX Winchester Systems 

TSC will be providing UniFLEX compatible with GIMIX Winchester systems. The NEW 
versions of UniFLEX for use with the Winchester systems will be delivered on 5" media as well 
as 8" media. 

GIMIX 30 Pin Prototyping Board Now Available 

• Double sided with plated thru holes and grldded power and ground lines, 

• 8 rows of pads on .100 x ,300 centers: up to 41 fourteen pin ICs. 

• Accepts standard 6, 8, 14, 16, 20, 24, and 40 pin DIP devices. 

• The entire top edge has pads for .100 x .100 header (ribbon) connectors. 

• Pads for solder connections or .100 center headers on all 30 bus lines. 

• Accepts 3 TO-220 regulators, 1 on the +8V & 1 ea. on the +/- 16V lines. 

• Provisions for decoupling caps distributed throughout the array. 

• Can be used with wire wrap, wiring pencil, solder wiring, etc. 

With gold bus connectors and heat sinks (unassembled) $38.33 

Now Available From GIMIX 

(U.S. 4 Canada Oniy) 

THE WINDRUSH EPROM PROGRAMMER 

• Probably the most versatile EPROM PROGRAMMER available. Interface & software for 
EXORclsor - II (fully addressable) and S-50 bus systems. 

• PROGRAMS AND VERIFIES 2508/2708, 2516/2716 (SINGLE AND TRIVOLT TYPES) 
2532, 2732, 2732A, 2564, 2764 and the 128K TMS2528 (16K x 8) 

WITHOUT ADDITIONAL 'PERSONALITY' MODULES 

• PROGRAMMER extends out to your work area via 5' of twisted pair cable. 

• EXTENSIVE COMMANDS MENU... MOVE DATE, READ, PROGRAM, VERIFY EPROMS, 
EXAMINE/CHANGE BUFFER, FORMATTED DUMP OF BUFFER, FILL BUFFER. 

• Fully documented user's manual w/schematics & theory of operation. Professionally 
finished PCBs w/solder resist & component overlay. 

• SOFTWARE AVAILABLE FOR FLEX 2/9, SSB, OS-9 (LVL 1 NOW, LVL 2 LATER) 
and MDOS...AII source files supplied. Specify disk size please! 

NOTE: One version is supplied FREE. Extra versions: $2500 each. 

S-30 Interface/Programmer/Baseplate/Cable $375.00 

EXORclsor Interface/Programmer/Baseplate/Cable $395.00 

G'MX it* reserves Ihe uqM locruflga pncihg tnd product 1117 WF<?T 17th Pi Are 

jpecif»ttl»ons at ir\i lime w.inou! lunher noflce Joof Wfcoj Jrm HLAOt . h „ ,, r 

CHICAGO, ILLINOIS 60609 : ..■■111 ^^ H1C 
GiMix* ana GHOST* ar« *gt$t»*d Irjdwwkiof GiMix ir* c\m\ ooi **m * 

f itx *nd umf itx a* irademarki oi Ttchmul Systems Consmtanls inc ^ ' *J ^2 r -55 1 

OS 9 * a uutemvk ol M»cro*4re inc T WX 9 1 0*22 1 -4055 



Gimix 
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The Original FLEX for Color Computers 



' Upgrade to 64K 

' RS to FLEX, FLEX to RS file transfer ability 

* Create your own character set 
"Automatic recognition of single or double density and single or 

doubted stded 

* All features available for either single or multiple drive systems 

* Sellable Disk Drive Seek Rates 
' Faster High Resolution Video Display with 5 different formals 

* Save RS Baste from RAM lo Disk 
' Move RS Basic to RAM 

* Load and save function on FLEX disk 
" 13 Support Commands 8 with Source Text 

Languages Available 
Pascal. Fortran. RS Basic. RS Assembler, TSC Basic, TSC Assemb- 
ler, Relocating Assembler, Macro Assembler, Mumps 

f you are tired ol Pia/ing flames on your TRS-80C Color Computer or find Itiat you we 
handicapped by the limitations o I lhe AS BASIC m "yingiowrrtea Progiamiriat^awowyixno 
acluafly USE IheCotof Co^Pule* as a COMPUTER YOU ARE READY TO MOVE UP f TH£ 
FLEX9^ Operating s/sem II you wanl to have REAL PROGRAMMING POWER, usuw an 
Extremely Powerlut Bit&ness 8A5C PASCALS C Comj)i|ers. 4 lulbtown Macro AAsembiei 
wldt* Library cansOitau so you are ry*continuoiisly reinventing ll>e wheel YOU ARE READY 
TO MOVE UP TO THE FLEX9 Operating System It you would like 10 see i! YOU REALLY 
COULD USE A COMPUTER IN YOUR BUSINESS, or begin lo make your Co™Pul<?r Stert 
PAYING IT S OWN WAY by doing some Computer Work lor tie millions of small businesses 
ground you. such as Wofd^KocesSing Payroll Accounting . Inventory, arc then YOU ARE 
READ Y TO MOVE UP TO THE FLEXy ■ Operating System Ho<*v> DATA-COUP nas Iheway PARTS AND PIECES 



OATA-COMP has everything you i»ed to make your TRS-GOC Cotor Computer WORK 
for YOU; from Paris and Pieces to Full. Ready To Use SYSTEMS. DATA.COMP dnkinm 
sells, services, and SUPPORTS Computer SYSTEMS, not jusl Software, CALL DATA 
COMP TODAY to make your Computer WORK FOR YOU! 

System ftvguiranienls 

FLEX9 Special Genets! Version x editor £ Assembler jwhiCh nor malty sell for $50 00 

eal SI 50 00 
F.MATE(RS) FLEX8 Conversion Roul lor the RS Orsfc Controller 

when purchased wilh Special General FLEX9 Sys S€9 95 

when purchased wdhoui the Genefal FLEX9 Sys S79 95 

Set of Eight 6 K RAM Chip* vu Mod Inslrudions S69 9$ 

Color Computer with *<K RAM and EXT BASlC Sj99 95 

Color Computer with 1 fcK RAM S™* 95 

Color Computsr with 1 6K RAM and EXf BASIC $389 95 

SPECIAL SYSTEM PACKAGES 

6 K Radio Snack COLOR COMPUTER* Radio Shack COLOR $K CONTROLLER, a Disk 

Orive System. Special General Veielon ol FLEX9 F MATE(RS) " And a Box of 10 

(Double Density Diskettes; a COMPLETE, ready to run SYSTEM on your Color TV Set 

51249 95 

DISK DRIVE PACKAGES, etc 

These Packages Include lhe Radio Shack Disk CooroOer, Disk Drives wilh Power Supply arid 
Cabinet, and Disk Drive Cable: 

PAX «1 1 Smgla Stood OovOte Oenaily Sys $<99 95 

PAK 42 2 Single Sided Ooubte Density Sys S769 95 

PAK #3 1 Double Sided Double Density Sys 5599 95 

PAK #4-2 Double Stood Double Density Sys S949 95 

PAK #5 — 2 Oume Trunin* Double Sided Douote Density Sys 576* 95 



OATA-COMP s FLF_X9 » Cervversion For Ine TRS 80C Color Computer was designed lor the 
SERIOUS COMPUTER USER: with leatu*es hke greatly increased Display Screens, WITH 
Lower Case Letleis, so you can pol e FULL Menu on ONE 9creen. or see SEVERAL Para 
grapfts at lhe same time, w<lh features like providing a FULL Keyboard so you have FULL 
Con trot ol you' Computer AND It « Programs NATURALLY, wrthoul receding a chart to see w ai 
Key CDrntomahon wiJI rjnve you what I una ion wilh USER ORIENTED luncnons lo ma*? using 
the Operating System natural like having the Computer AUTOMATICALLY determine whal 
type ol 0«5k 15 being used m whal lype n' Oisfc Drive and waking accordingly, rather that you 
have lo specify each and every ihirig for it Or like having the Computer work win the Printer yoi 1 
have been using ail along without you having toieil lhe new Operating Syslem whsl<s!here.etc 
ele . etc. 



ftsdlo Shac* Disk Controller 

t TbikJom Silica Sided OouDle Den&riy D«sfc Drive 

t Tandon Double Sided- Double Density Dtsk Dnve 

t Oume Thmllne Double Si fed Double Density 

Single Drive Cabinet wilh Power Supply 

OouWe Onve Cabirel wit* Power Supply 

Single Drive Di$k Cafcie lor RS ControNer 

Double Owe Disk Cable for RS Coir Toller 

Micro Tech rods ... inc. LOWER CASE ROM Adapter 

Radio Shack BASIC Version 1.1 ROM 

Radio Shack Extended flasjc ROM 



S179 95 
$249 95 
$W9 95 
$279 95 
569 95 
S109 95 
524 95 
S34 95 
$74 95 
S34 95 



SOFTWARE 
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CHESS. 

#<£ 6809 %# 

Requires FLEX " and one of the loJ lowing CRT terminals 

Now Runs On Any Type Terminal 

Features; 

• Two display boards. 

* Four levels ol play 

* Polnl scoring system. 

• Play while or btack. 

■ Change or ael-up boards p^ce pos lions 

• ForfeH move, 

♦ Swap sides, 

• Make move and swap sides. 
- Change aaillttov if. 

* Stop and restart game. 

* Solve Mate in 1-2-3-4' moves. 

$79,95 Specify 5" or 8 " disk 

Thla Is one of the strongest CHESS programa running 
on any microcomputer. estimateduscfRating 1600 . . 

Halt PtWHid th*ek* nitow 1-i ***•» deliver 

OIET-TRAC Forecaster 

A Diei Planning and Analyses Pro9ram 

Oirf TRAC totmemmt t « p^KjrarT. i^ai p>larvs 9 dm my lerrcF d 
etfher Cekmett &*} pBrcefiUo* ol cwbotwdrjr** flrpaBin* mnd \my 
iC*F >l o» *»*m» Ot C*rbohy4r«lt P<ol«»n «nd ^11 <0Od *k. 
c^trgai ol aacR &t»*um tone hm gram ivteeWM. &*&, *^mi 
U\m m *v* urrt IMI »or * ipwaAc «>div«du«i 

St* *e# "mof" P»«s»m weoi ftwm Sue aom? I •** ire 
8«mI U«Mk*c Rett \u r*jn*H> irxfWBVM *•♦ t+w* inie Koouni 
Idtil «e«gh( «rd »y*Wtnrw c<k>ot» tar an T ««yhi o4 en ibPrt 
*i»VHftj§l ■<« C4«ul|l*d W>»p l *f^hi gotf 4 flwnn ftHhff gvi> 



rKWKkiM irw rtumftoi ol dtya lo fUt»i IH* wMBjftl QTWil i» O^jftneQ 
tilt itAfVig md aoding kIi o« **flN Iqii » r It i lawn and • 0»> 
dienSir «aA tacn oat ■ aredvied «e«9M ior . 30 d*v panoe » 



FLEX VERSION 
UnJFLEX VERSION 



159.95 

$6995 



PRINTERS 

The Epson MX-80 

$495.00 

The Epson MX-100 
$725.00 

MX-70 $355.00 MX-80 FT $575.00 

TV 

Color Computer External 
Teiminai Program 
SI 9.95 

Color Computer Stylograph 

Running Under F-Mate 

$195.00 






DATA-COMP 

SOUTH EAST MEDIA 

P.O. Box 794 HIXSON, TN 37343 



1-615-842-4601 



Verbatim Diskettes. 



y Soft 5«cior Piths 
5kngie Sjos Single Density S? 75 •« 
Skngl* Sids Ooubke Dansily %7 75 ea 
OguMa Side Dchi»i« Density $4 92 ■■ 
P(ft*1ic Storage Box S? 00 «e 



S Son Sector Oitlt 

Single Side Single Oensily $J J 5 ae 
SingteSioa Double Denailw St 10 ae. 
Ooubla Side Double Oens i v St 75 at 
Pleatic Library Bni $5 00 *a. 

foreign Orders Add \9\ St>rtice— 2ft". Air Meii 



WINCHESTER BACKUP UTILITIES 

Trie following ulihaes allow lhe backup ol any size 
disk system lo any sire diskettes. 

By sjmely ins* rung diskettes as roqueslod by COPY 
MULT a large disk syslem (Winchester* elc ) may be 
downloaded to yoLrr present Happy disk system arty 
sire Ho need lo fiddle wilh directory deletions or any of 
the olhor tedious operations lhal musi do done using a 
normal copy routine 

COPYMULT-CMD understands normal copy syntax 
and always keeps i«p wrih Hies already cepwd by main- 
taining drreclones lor bolh rtost and receiving d>Sk sys- 
iwn thus eiimlnaling noors ol tedious keyboard ontnas 
arid other lime consuming cleanup chores 

BACKUP CMD is a special proo/am lhal downloads 
random lype files any site. 

RESTORE-CMD a special program to restructure 
copied random tilas tor copying or recopymg bacic lo 
the host sysiem 

FREELINK-CMDa bonus utility lhal relinks lhe tree 
chain of a floppy or hard disk ihofoby olrmmuting Irag 
mentation 

" Completely documented source files included. 
" ALL 3 Programs S99.50 on 8 dlsketle 
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— HELIX 






THE MAINFRAME TM 

• Industry Standard Optima Cabinet 

• Largest Constant Voltage Power 
Supply in the industry 

• S-64 Bus gives 16 Bi1 Power and 
S-50 Bus Compatibility 

• 10 Mam (S-84) Slots 

• 14 I/O (S-30) Slots plus 2 Onboard 

• On-board Baud Rale Generator 
to 36 4Kb 

• Space and Power lor two 5 X Disk 
Drives 

• Full Address Decoding for I/O Slots 

• Two RS-232 Serial and Two parallel 
Ports On-board 

• Single Board Construction for 
Reliability 

• Faraday Shielded Bus Lines give 
Text Book Clean Signals 

THE PROCESSORS 
6809 

• Standard 2 MHz Operation 

• Standard DAT Compatible with 
GlMIXandSWTPC 

• Standard 6840 Inteival Timer 

• Standard IK Scratchpad RAM 

• Standard Clock/Calendar with Battery 

• Provision lor Programmers Console 
68000 

• Standard 6 MHz Operation 

• Memory Management Hardware 

• Provision lor Programmers Console 

• 16 Bit Power and 6 Bit Compatibility 

The HELIX™ computer system represents the latest advance in S-50 
bus computer systems, Relying on the physical nature of S-50 bus 
connectors to guarantee compatibility, the HELIX adds 14 bus lines 
(becoming S-64) to allow a 68000 processor to operate with full 16 bit 
data transfer and 24 bit addressing, while at the same time providing 
full interchangability with existing S-50 components. 
Offered with a selection of processors, memories, and peripheral con- 
trollers, a HELIX system can be configured for applications ranging 
from advanced hobbyist to multiterminal timesharing 
Designed to offer the utmost in speed, reliability, and utility at a 
reasonable price, it represents a new standard of quality for those 
who require a professionally designed computer for professional use 



THE POWER SUPPLY 

• Ferro-resonant Transformer for Lme Noise 
and Under-Voltage Protection 

• Conservative 25 Amps at 8 5 Volts 

• Conservative 5 Amps at * 16 Volts 

• Conservative Component Rating for 
Reliability 

THE COMPONENTS 

• Fully Socketed 

• Gold Plated Bus Connectors 

• Only~B" Series 68XX Components Used 

• Only Top Grade Logic Circuits Used 

• Industrial Grade Components Throughout 



THE MEMORIES 
DM 64 

• Field Proven 

• Proprietary Memory Control Logic 

• FullyTransparenl Refresh 

• Tested at 2 5 MHz Operation 
DM-512 

• 51 2K Bytes on a Single S-64 Board 

• 16 Bit Power and 8 B11 Compatibility 

• Runs in Existing S-50 Systems where 
Physical Space Allows 

• Full 24 Bit Addressing 

• FullyTransparenl Refresh 



THE PRICES 

Because of the variety of configurations 
possibe. lull pricing cannot be given Rep- 
resentative prices are 



• 64K 6809 HELIX 


$1995 


• 64K 68000 HELIX. 


$2595 


• 512K 6809 HELIX 


$4450 


• 51 2K 68000 HELIX 


$4995 



HAZELWOOD COMPUTER SYSTEMS 



90? E. Terra, OTallon, Missouri 63366 
Dealer and OEM Inquiries Invited We support our Dealers 



(314) 281-1055 
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